Another CVE-2016-1238 change from core

Perl-Toolchain-Gang · Aug 7, 2016 · 3e9df17 · 3e9df17
1 parent 56ae5bb
commit 3e9df17
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bin/instmodsh b/bin/instmodsh
@@ -1,5 +1,6 @@
 #!/usr/bin/perl -w
 
+BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
 use IO::File;
 use ExtUtils::Packlist;