diff options
Diffstat (limited to 'cpan/Module-Load/lib/Module/Load.pm')
| -rw-r--r-- | cpan/Module-Load/lib/Module/Load.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cpan/Module-Load/lib/Module/Load.pm b/cpan/Module-Load/lib/Module/Load.pm index 7087b5e8bf..3a83c386a2 100644 --- a/cpan/Module-Load/lib/Module/Load.pm +++ b/cpan/Module-Load/lib/Module/Load.pm @@ -1,6 +1,6 @@ package Module::Load; -$VERSION = '0.20'; +$VERSION = '0.22'; use strict; use File::Spec (); @@ -49,6 +49,8 @@ sub _to_file{ ## trailing blanks ignored by default. [rt #69886] my @parts = split /::/, $_, -1; + ## make sure that we can't hop out of @INC + shift @parts if @parts && !$parts[0]; ### because of [perl #19213], see caveats ### my $file = $^O eq 'MSWin32' |