forked from pool/perl-File-Unpack
21abc383c3
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-File-Unpack?expand=0&rev=85
14 lines
490 B
Diff
14 lines
490 B
Diff
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'")
|