rpmsafe: realpath fixes

[nethome.git] / bin / rpmsafe

diff --git a/bin/rpmsafe b/bin/rpmsafe
index f8071da..6177dd2 100755 (executable)
--- a/bin/rpmsafe
+++ b/bin/rpmsafe
@@ -1,2 +1,2 @@
 #! /bin/bash
 #! /bin/bash

-rpm -Vva 2>/dev/null|perl -ne 'BEGIN{use Cwd qw(realpath);}chomp;print realpath($_)."\n" 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");'