From c36d3924d6aa4ea711f344e215e2f5b8525fd0a0 Mon Sep 17 00:00:00 2001
From: root <jan.kratochvil@redhat.com>
Date: Mon, 4 Nov 2019 22:13:06 +0100
Subject: [PATCH 1/1] rpmsafe: realpath fixes

---
 bin/rpmsafe | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bin/rpmsafe b/bin/rpmsafe
index f8071da..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);}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");'
-- 
1.8.3.1