+rpmsafe,+rpmsafereduce

[nethome.git] / bin / rpmsafe

diff --git a/bin/rpmsafe b/bin/rpmsafe
new file mode 100755 (executable)
index 0000000..54f771e
--- /dev/null
+++ b/bin/rpmsafe
@@ -0,0 +1,2 @@
+#! /bin/bash
+rpm -Vva 2>/dev/null|perl -ne 'BEGIN{use Cwd qw(realpath);}print if s/^[.]{7}[.T][.]  [^g] //;'