X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=bin%2Frpmsafe;h=6177dd2bd2c91af8a1cda55cb27f2e6d34044d0b;hb=f99a3cc2b88f5e57faa842eb8e19d8cbb2ee5601;hp=54f771e4a726f7913fee85dadc5679a8338313d5;hpb=5305e2b3ed1b08c4394429bd78ee47e4803b7f61;p=nethome.git

diff --git a/bin/rpmsafe b/bin/rpmsafe
index 54f771e..6177dd2 100755
--- 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");'