This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Module::Load::Conditional from version 0.54 to 0.56
authorSteve Hay <steve.m.hay@googlemail.com>
Fri, 30 Aug 2013 07:19:58 +0000 (08:19 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Fri, 30 Aug 2013 07:20:20 +0000 (08:20 +0100)
Porting/Maintainers.pl
cpan/Module-Load-Conditional/lib/Module/Load/Conditional.pm
pod/perldelta.pod

index 60cfb2c..0c795df 100755 (executable)
@@ -1216,7 +1216,7 @@ use File::Glob qw(:case);
 
     'Module::Load::Conditional' => {
         'MAINTAINER'   => 'kane',
-        'DISTRIBUTION' => 'BINGOS/Module-Load-Conditional-0.54.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Module-Load-Conditional-0.56.tar.gz',
         'FILES'        => q[cpan/Module-Load-Conditional],
         'UPSTREAM'     => 'cpan',
     },
index 342371f..a94906c 100644 (file)
@@ -20,7 +20,7 @@ BEGIN {
                         $FIND_VERSION $ERROR $CHECK_INC_HASH];
     use Exporter;
     @ISA            = qw[Exporter];
-    $VERSION        = '0.54';
+    $VERSION        = '0.56';
     $VERBOSE        = 0;
     $DEPRECATED     = 0;
     $FIND_VERSION   = 1;
@@ -195,7 +195,7 @@ sub check_install {
         }
     }
 
-    ### we didnt find the filename yet by looking in %INC,
+    ### we didn't find the filename yet by looking in %INC,
     ### so scan the dirs
     unless( $filename ) {
 
@@ -495,12 +495,15 @@ sub requires {
     }
 
     my $lib = join " ", map { qq["-I$_"] } @INC;
-    my $cmd = qq["$^X" $lib -M$who -e"print(join(qq[\\n],keys(%INC)))"];
+    my $oneliner = 'sub foo(_){q[BONG=].shift} print(join(qq[\n],map foo,keys(%INC)),qq[\n])';
+    my $cmd = qq["$^X" $lib -M$who -e"$oneliner"];
 
     return  sort
                 grep { !/^$who$/  }
                 map  { chomp; s|/|::|g; $_ }
                 grep { s|\.pm$||i; }
+                map  { s!^BONG\=!!; $_ }
+                grep { m!^BONG\=! }
             `$cmd`;
 }
 
index ab265e4..775a069 100644 (file)
@@ -242,6 +242,12 @@ The list of Perl versions covered has been updated.
 
 =item *
 
+L<Module::Load::Conditional> has been upgraded from version 0.54 to 0.56.
+
+C<requires> has been made more robust. [cpan #83728]
+
+=item *
+
 L<Module::Metadata> has been upgraded from version 1.000014 to 1.000016.
 
 The module's DESCRIPTION has been re-worded regarding safety/security to