In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/58572ed82f6c0a15ad935d2628e9196804bb0449?hp=3e63bed3c572617faf16446e7b44b5ea0b78e979>
- Log -----------------------------------------------------------------
commit 58572ed82f6c0a15ad935d2628e9196804bb0449
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date: Thu Feb 20 23:31:43 2014 +0000
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
-----------------------------------------------------------------------
Summary of changes:
Porting/Maintainers.pl | 2 +-
cpan/Module-Load/lib/Module/Load.pm | 2 +-
cpan/Module-Load/t/02_Module-Load.t | 99 ++++++++++++++++++++-----------------
3 files changed, 55 insertions(+), 48 deletions(-)
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 81ce86f..43188f1 100755
--- 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
--- 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
--- 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();
--
Perl5 Master Repository
