From 91f110e064cd7c194e59e019b83bb7496c1c84d4 Mon Sep 17 00:00:00 2001 From: afresh1 Date: Mon, 24 Mar 2014 14:58:42 +0000 Subject: Import perl-5.18.2 OK espie@ sthen@ deraadt@ --- gnu/usr.bin/perl/cpan/Module-Load/lib/Module/Load.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnu/usr.bin/perl/cpan/Module-Load/lib/Module/Load.pm') diff --git a/gnu/usr.bin/perl/cpan/Module-Load/lib/Module/Load.pm b/gnu/usr.bin/perl/cpan/Module-Load/lib/Module/Load.pm index 3a83c386a27..60464847449 100644 --- a/gnu/usr.bin/perl/cpan/Module-Load/lib/Module/Load.pm +++ b/gnu/usr.bin/perl/cpan/Module-Load/lib/Module/Load.pm @@ -1,6 +1,6 @@ package Module::Load; -$VERSION = '0.22'; +$VERSION = '0.24'; use strict; use File::Spec (); @@ -48,7 +48,7 @@ sub _to_file{ my $pm = shift || ''; ## trailing blanks ignored by default. [rt #69886] - my @parts = split /::/, $_, -1; + my @parts = split /::|'/, $_, -1; ## make sure that we can't hop out of @INC shift @parts if @parts && !$parts[0]; -- cgit v1.2.3-59-g8ed1b