+bin/upsc-log,+bin/upsc-log-diff

[nethome.git] / bin / rpmsafe

diff --git a/bin/rpmsafe b/bin/rpmsafe
index 54f771e..6177dd2 100755 (executable)
--- a/bin/rpmsafe
+++ b/bin/rpmsafe
@@ -1,2 +1,2 @@
 #! /bin/bash
-rpm -Vva 2>/dev/null|perl -ne 'BEGIN{use Cwd qw(realpath);}print if s/^[.]{7}[.T][.]  [^g] //;'
+rpm -Vva 2>/dev/null|perl -ne 'BEGIN{use Cwd qw(realpath);}chomp;s/^[.]{7}[.T][.]  [^g] // or next;s{/([^/]*)$}{} or die $_;$f=$1;print(($_ eq ""?"":realpath($_)||$_)."/$f\n");'