'Module::Load' =>
{
'MAINTAINER' => 'kane',
- 'DISTRIBUTION' => 'BINGOS/Module-Load-0.20.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/Module-Load-0.22.tar.gz',
'FILES' => q[cpan/Module-Load],
'UPSTREAM' => 'cpan',
},
package Module::Load;
-$VERSION = '0.20';
+$VERSION = '0.22';
use strict;
use File::Spec ();
## 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'
{ my @Map = (
# module flag diagnostic
[q|Must::Be::Loaded|, 1, 'module'],
+ [q|::Must::Be::Loaded|, 1, 'module'],
[q|LoadMe.pl|, 0, 'file' ],
[q|LoadIt|, 1, 'ambiguous module' ],
[q|ToBeLoaded|, 0, 'ambiguous file' ],
=item *
-L<Unicode::Collate> has been upgraded from version 0.78 to version 0.79.
+L<ExtUtils::ParseXS> has been upgraded from version 3.04_04 to version 3.05.
=item *
-L<ExtUtils::ParseXS> has been upgraded from version 3.04_04 to version 3.05.
+L<Module::Load> has been upgraded from version 0.20 to version 0.22.
+
+Resolve possible security problem [http://goo.gl/YzHRU] where a '::' prefixed
+module can 'jump' out of @INC
+
+=item *
+
+L<Unicode::Collate> has been upgraded from version 0.78 to version 0.79.
=back