perl-IO-Compress/IO-Compress-2.068-CVE-2016-...

24 lines
935 B
Diff

diff -ru IO-Compress-2.068-orig/bin/zipdetails IO-Compress-2.068/bin/zipdetails
--- IO-Compress-2.068-orig/bin/zipdetails 2014-01-31 07:52:56.000000000 +1100
+++ IO-Compress-2.068/bin/zipdetails 2016-07-28 10:10:17.812926303 +1000
@@ -5,6 +5,7 @@
# Display info on the contents of a Zip file
#
+BEGIN { pop @INC if $INC[-1] eq '.' }
use strict;
use warnings ;
diff -ru IO-Compress-2.068-orig/lib/IO/Uncompress/AnyUncompress.pm IO-Compress-2.068/lib/IO/Uncompress/AnyUncompress.pm
--- IO-Compress-2.068-orig/lib/IO/Uncompress/AnyUncompress.pm 2015-09-27 04:34:31.000000000 +1000
+++ IO-Compress-2.068/lib/IO/Uncompress/AnyUncompress.pm 2016-07-28 10:08:45.064332089 +1000
@@ -27,6 +27,8 @@
BEGIN
{
+ local @INC = @INC;
+ pop @INC if $INC[-1] eq '.';
eval ' use IO::Uncompress::Adapter::Inflate 2.068 ;';
eval ' use IO::Uncompress::Adapter::Bunzip2 2.068 ;';
eval ' use IO::Uncompress::Adapter::LZO 2.068 ;';