From: Chris Williams <chris@bingosnet.co.uk>
Date: Mon, 7 Sep 2009 14:19:12 +0000 (+0100)
Subject: Update IPC::Cmd to CPAN version 0.48
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2966cb67d8a9952e547e86e042beca11297aa4b;p=p5sagit%2Fp5-mst-13.2.git

Update IPC::Cmd to CPAN version 0.48
---

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index bec90c2..dec8634 100755
--- 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
--- 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;