perl-Module-CoreList/Module-CoreList-5.20160720-CVE-2016-1238-avoid-loading-optional-modules-from.patch

12 lines
377 B
Diff

diff -up Module-CoreList/corelist.cve Module-CoreList/corelist
--- Module-CoreList/corelist.cve 2016-02-05 16:26:05.000000000 +0100
+++ Module-CoreList/corelist 2016-08-05 09:16:43.129306210 +0200
@@ -130,6 +130,7 @@ requested perl versions.
=cut
+BEGIN { pop @INC if $INC[-1] eq '.' }
use Module::CoreList;
use Getopt::Long qw(:config no_ignore_case);
use Pod::Usage;