From: Jos I. Boumans <kane@dwim.org>
Date: Wed, 17 Oct 2007 11:32:03 +0000 (+0200)
Subject: Update IPC::Cmd to 0.40
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7edb818e3f3ca1bd7fb46554919c8cfd222bd37d;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/IPC/Cmd.pm b/lib/IPC/Cmd.pm
index ce668b1..f41647c 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
                 );