Update IPC::Cmd to CPAN version 0.48

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index bec90c2..dec8634 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -884,7 +884,7 @@ use File::Glob qw(:case);
     'IPC::Cmd' =>
        {
        'MAINTAINER'    => 'kane',
-       'DISTRIBUTION'  => 'KANE/IPC-Cmd-0.46.tar.gz',
+       'DISTRIBUTION'  => 'BINGOS/IPC-Cmd-0.48.tar.gz',
        'FILES'         => q[ext/IPC-Cmd],
        'CPAN'          => 1,
        'UPSTREAM'      => 'cpan',
@@ -1171,7 +1171,7 @@ use File::Glob qw(:case);
     'Module::Loaded' =>
        {
        'MAINTAINER'    => 'kane',
-       'DISTRIBUTION'  => 'KANE/Module-Loaded-0.06.tar.gz',
+       'DISTRIBUTION'  => 'BINGOS/Module-Loaded-0.06.tar.gz',
        'FILES'         => q[ext/Module-Loaded],
        'CPAN'          => 1,
        'UPSTREAM'      => 'cpan',

diff --git a/ext/IPC-Cmd/lib/IPC/Cmd.pm b/ext/IPC-Cmd/lib/IPC/Cmd.pm
index a469d95..f195acd 100644 (file)
--- a/ext/IPC-Cmd/lib/IPC/Cmd.pm
+++ b/ext/IPC-Cmd/lib/IPC/Cmd.pm
@@ -16,7 +16,7 @@ BEGIN {
                         $USE_IPC_RUN $USE_IPC_OPEN3 $WARN
                     ];
 
-    $VERSION        = '0.46';
+    $VERSION        = '0.48';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
@@ -348,7 +348,7 @@ sub run {
     $cmd = _quote_args_vms( $cmd ) if IS_VMS;
 
     ### strip any empty elements from $cmd if present
-    $cmd = [ grep { length && defined } @$cmd ] if ref $cmd;
+    $cmd = [ grep { defined && length } @$cmd ] if ref $cmd;
 
     my $pp_cmd = (ref $cmd ? "@$cmd" : $cmd);
     print loc("Running [%1]...\n", $pp_cmd ) if $verbose;