Update Module-Load to CPAN version 0.32

  [DELTA]

0.32    Thu Feb 20 22:53:19 GMT 2014
* Fix tests to support statically built perls

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 81ce86f..43188f1 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -819,7 +819,7 @@ use File::Glob qw(:case);
     },
 
     'Module::Load' => {
-        'DISTRIBUTION' => 'BINGOS/Module-Load-0.30.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Module-Load-0.32.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 bcab454..9e69f83 100644 (file)
--- 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.30';
+$VERSION = '0.32';
 
 use strict;
 use warnings;

diff --git a/cpan/Module-Load/t/02_Module-Load.t b/cpan/Module-Load/t/02_Module-Load.t
index 2f33bfe..2565f26 100644 (file)
--- a/cpan/Module-Load/t/02_Module-Load.t
+++ b/cpan/Module-Load/t/02_Module-Load.t
@@ -3,6 +3,7 @@
 use Test::More;
 use strict;
 use warnings;
+use Config;
 
 #
 # Module::Load; test new features:
@@ -74,16 +75,6 @@ subtest 'load/prevcompat' => sub{
            Data::Dumper->Dump([$WORLD]);');
     is_peace_in_world();
 
-    _test('use Module::Load;
-           load("Data::Dumper","Dumper","DumperX");
-           Data::Dumper->Dump([$WORLD]);');
-    is_peace_in_world();
-
-       _test('use Module::Load "all";
-           load("Data::Dumper","Dumper","DumperX");
-           DumperX([$WORLD]);');
-    is_peace_in_world();
-
     _test('use Module::Load "all";
                load("______");');
     cant_locate();
@@ -127,11 +118,6 @@ subtest 'autoload' => sub{
            Dumper($WORLD);');
     is_peace_in_world();
 
-    _test('use Module::Load;
-                       Module::Load::autoload("Data::Dumper","Dumper","DumperX");
-           DumperX($WORLD);');
-    is_peace_in_world();
-
     _test('use Module::Load "autoload";
                        autoload("Data::Dumper");
            Dumper($WORLD);');
@@ -143,11 +129,6 @@ subtest 'autoload' => sub{
     is_peace_in_world();
 
     _test('use Module::Load "all";
-                       autoload("Data::Dumper","Dumper","DumperX");
-           DumperX($WORLD);');
-    is_peace_in_world();
-
-    _test('use Module::Load "all";
                        autoload("______");');
     cant_locate();
 
@@ -220,21 +201,6 @@ subtest 'load_remote' => sub{
            XYZ::Module::Dumper($WORLD);');
     is_peace_in_world();
 
-    _test('use Module::Load;
-           Module::Load::load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
-           XYZ::Module::Dumper($WORLD);');
-    is_peace_in_world();
-
-    _test('use Module::Load "load_remote";
-           load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
-           XYZ::Module::Dumper($WORLD);');
-    is_peace_in_world();
-
-    _test('use Module::Load "all";
-           load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
-           XYZ::Module::Dumper($WORLD);');
-    is_peace_in_world();
-
        _test('use Module::Load "all";
            load_remote("XYZ::Module","______","Data::Dumper");
            XYZ::Module::Dumper($WORLD);');
@@ -264,16 +230,6 @@ subtest 'autoload_remote' => sub{
            XYZ::Module::Dumper($WORLD);');
     is_peace_in_world();
 
-    _test('use Module::Load;
-           Module::Load::autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
-           XYZ::Module::DumperX($WORLD);');
-    is_peace_in_world();
-
-    _test('use Module::Load "autoload_remote";
-           autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
-           XYZ::Module::Dumper($WORLD);');
-    is_peace_in_world();
-
     _test('use Module::Load "all";
            autoload_remote("XYZ::Module","______","Data::Dumper");
            XYZ::Module::Dumper($WORLD);');
@@ -303,7 +259,6 @@ subtest 'complex' => sub{
            Data::Dumper->Dump([$WORLD]);');
     isnt_def_sub();
 
-
        _test('use Module::Load "load","autoload";
                        load("Data::Dumper", "Dumper");
                        autoload("Carp");
@@ -346,5 +301,57 @@ subtest 'complex' => sub{
     done_testing();
 };
 
+subtest 'dumpxs' => sub{
+    unless ( $Config::Config{usedl} ) {
+      plan skip_all => 'Statically linked perl';
+    }
+    _test('use Module::Load;
+           load("Data::Dumper","Dumper","DumperX");
+           Data::Dumper->Dump([$WORLD]);');
+    is_peace_in_world();
+
+       _test('use Module::Load "all";
+           load("Data::Dumper","Dumper","DumperX");
+           DumperX([$WORLD]);');
+    is_peace_in_world();
+
+    _test('use Module::Load;
+                       Module::Load::autoload("Data::Dumper","Dumper","DumperX");
+           DumperX($WORLD);');
+    is_peace_in_world();
+
+    _test('use Module::Load "all";
+                       autoload("Data::Dumper","Dumper","DumperX");
+           DumperX($WORLD);');
+    is_peace_in_world();
+
+    _test('use Module::Load;
+           Module::Load::load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
+           XYZ::Module::Dumper($WORLD);');
+    is_peace_in_world();
+
+    _test('use Module::Load "load_remote";
+           load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
+           XYZ::Module::Dumper($WORLD);');
+    is_peace_in_world();
+
+    _test('use Module::Load "all";
+           load_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
+           XYZ::Module::Dumper($WORLD);');
+    is_peace_in_world();
+
+    _test('use Module::Load;
+           Module::Load::autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
+           XYZ::Module::DumperX($WORLD);');
+    is_peace_in_world();
+
+    _test('use Module::Load "autoload_remote";
+           autoload_remote("XYZ::Module","Data::Dumper","Dumper","DumperX");
+           XYZ::Module::Dumper($WORLD);');
+    is_peace_in_world();
+
+    done_testing();
+};
+
 done_testing();