File 5.diff of Package perl-File-Unpack

diff --git a/Unpack.pm b/Unpack.pm
index d5354ac..fb675e7 100644
--- a/Unpack.pm
+++ b/Unpack.pm
@@ -1081,7 +1081,7 @@ sub unpack
 
 	      # die Dumper "_run_mime_helper: $archive, $new_name, $destdir", readlink($unpacked), $unpacked;
 
-              unless (ref $unpacked or -e $unpacked)
+              unless (ref $unpacked or -e $unpacked or readlink($unpacked))
                 {
                   warn("archive=$archive, new_name=$new_name\n");
 		  die("assert -e '$unpacked'")