diff options
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/Module-Load/lib/Module/Load.pm | 5 | ||||
-rw-r--r-- | cpan/Module-Load/t/02_Module-Load.t | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/cpan/Module-Load/lib/Module/Load.pm b/cpan/Module-Load/lib/Module/Load.pm index bc788b5324..bcab45435a 100644 --- a/cpan/Module-Load/lib/Module/Load.pm +++ b/cpan/Module-Load/lib/Module/Load.pm @@ -1,8 +1,9 @@ package Module::Load; -$VERSION = '0.28'; +$VERSION = '0.30'; use strict; +use warnings; use File::Spec (); sub import { @@ -17,7 +18,7 @@ sub import { return ); - @$h{@_} = (); + map { $h->{$_} = () if defined $_ } @_; (exists $h->{none} or exists $h->{''}) and shift, last; diff --git a/cpan/Module-Load/t/02_Module-Load.t b/cpan/Module-Load/t/02_Module-Load.t index 0c715577f1..2f33bfe831 100644 --- a/cpan/Module-Load/t/02_Module-Load.t +++ b/cpan/Module-Load/t/02_Module-Load.t @@ -2,6 +2,7 @@ use Test::More; use strict; +use warnings; # # Module::Load; test new features: @@ -20,6 +21,7 @@ my ($afx, $cnt, $r, $tcode) = ('TestXYZ_', 0); sub _reset{ undef %{Data::Dumper::}; undef %{XYZ::Module::}; + no warnings q[uninitialized]; eval "undef %{$afx$cnt::}"; delete $INC{'Data/Dumper.pm'}; } @@ -237,6 +239,8 @@ subtest 'load_remote' => sub{ load_remote("XYZ::Module","______","Data::Dumper"); XYZ::Module::Dumper($WORLD);'); cant_locate(); + + done_testing(); }; subtest 'autoload_remote' => sub{ |