From: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date: Sat, 25 Jan 2014 13:38:10 +0000 (+0000)
Subject: Update Module-Load to CPAN version 0.30
X-Git-Tag: upstream/5.20.0~623
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2cf6a769045cf8d7f28ae3ec911e8908b8d22a68;p=platform%2Fupstream%2Fperl.git

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
---

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 0ac622c..4dbf530 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -809,7 +809,7 @@ use File::Glob qw(:case);
     },
 
     'Module::Load' => {
-        'DISTRIBUTION' => 'BINGOS/Module-Load-0.28.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Module-Load-0.30.tar.gz',
         'FILES'        => q[cpan/Module-Load],
     },
 
diff --git a/cpan/Module-Load/lib/Module/Load.pm b/cpan/Module-Load/lib/Module/Load.pm
index bc788b5..bcab454 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 0c71557..2f33bfe 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{