diff options
author | Jos I. Boumans <kane@dwim.org> | 2007-10-17 13:32:03 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-17 12:08:02 +0000 |
commit | 7edb818e3f3ca1bd7fb46554919c8cfd222bd37d (patch) | |
tree | 37a914bc082a0a0662b740fab8d144aefd489a36 /lib/IPC | |
parent | 907fbfa186f5a1c7107de73dab57f6c194c4d3c1 (diff) | |
download | perl-7edb818e3f3ca1bd7fb46554919c8cfd222bd37d.tar.gz |
Update IPC::Cmd to 0.40
From: "Jos I. Boumans" <jos@dwim.org>
Message-Id: <C7DB06B4-6FE5-4188-A087-DC40E8E9F07D@dwim.org>
p4raw-id: //depot/perl@32123
Diffstat (limited to 'lib/IPC')
-rw-r--r-- | lib/IPC/Cmd.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/IPC/Cmd.pm b/lib/IPC/Cmd.pm index ce668b172e..f41647c86c 100644 --- a/lib/IPC/Cmd.pm +++ b/lib/IPC/Cmd.pm @@ -13,7 +13,7 @@ BEGIN { $USE_IPC_RUN $USE_IPC_OPEN3 $WARN ]; - $VERSION = '0.38'; + $VERSION = '0.40'; $VERBOSE = 0; $DEBUG = 0; $WARN = 1; @@ -605,8 +605,10 @@ sub _system_run { ### we should re-open this filehandle right now, not ### just dup it + ### Use 2-arg version of open, as 5.5.x doesn't support + ### 3-arg version =/ if( $redir eq '>&' ) { - open( $fh, '>', File::Spec->devnull ) or ( + open( $fh, '>' . File::Spec->devnull ) or ( Carp::carp(loc("Could not reopen '$name': %1", $!)), return ); |