This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update IPC::Cmd to 0.40
authorJos I. Boumans <kane@dwim.org>
Wed, 17 Oct 2007 11:32:03 +0000 (13:32 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 17 Oct 2007 12:08:02 +0000 (12:08 +0000)
From: "Jos I. Boumans" <jos@dwim.org>
Message-Id: <C7DB06B4-6FE5-4188-A087-DC40E8E9F07D@dwim.org>

p4raw-id: //depot/perl@32123

lib/IPC/Cmd.pm

index ce668b1..f41647c 100644 (file)
@@ -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
                 );