Blame SOURCES/IO-Compress-2.069-CVE-2016-1238-avoid-loading-optional-modules-from.patch

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