6177dd2bd2c91af8a1cda55cb27f2e6d34044d0b
[nethome.git] / bin / rpmsafe
1 #! /bin/bash
2 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");'