diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-01-25 13:38:10 +0000 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-01-25 13:38:10 +0000 |
commit | 2cf6a769045cf8d7f28ae3ec911e8908b8d22a68 (patch) | |
tree | 1c39dd5f2995190964c041ef8fecbb783c77432e /cpan | |
parent | 055530663a9e1559574d3e02e0deabdbee588f2e (diff) | |
download | perl-2cf6a769045cf8d7f28ae3ec911e8908b8d22a68.tar.gz |
Update Module-Load to CPAN version 0.30
[DELTA]
0.30 Sat Jan 25 13:26:51 GMT 2014
* Fix 'uninitialized' warnings during testing
* Added done_testing() to tests
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{ |