diff options
| author | Chris Williams <chris@bingosnet.co.uk> | 2009-09-07 15:19:12 +0100 |
|---|---|---|
| committer | Chris Williams <chris@bingosnet.co.uk> | 2009-09-07 15:19:12 +0100 |
| commit | d2966cb67d8a9952e547e86e042beca11297aa4b (patch) | |
| tree | dc474e463b508d32a80bc9dd4cbe793ed1ca3e7d | |
| parent | a9a8f533e76a8ff0627ae75910e0a12874670ad2 (diff) | |
| download | perl-d2966cb67d8a9952e547e86e042beca11297aa4b.tar.gz | |
Update IPC::Cmd to CPAN version 0.48
| -rwxr-xr-x | Porting/Maintainers.pl | 4 | ||||
| -rw-r--r-- | ext/IPC-Cmd/lib/IPC/Cmd.pm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index bec90c29b3..dec8634a36 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 a469d95464..f195acd4d5 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; |