From: John E. Malmberg <wb8tyw@qsl.net>
Date: Thu, 25 Oct 2007 00:36:29 +0000 (-0500)
Subject: patch@32181 IPC::Cmd fix for VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=abb5436b1929d45f6fe4f878020ff8b9bde11468;p=p5sagit%2Fp5-mst-13.2.git

patch@32181 IPC::Cmd fix for VMS.
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <47202B5D.8070609@qsl.net>

p4raw-id: //depot/perl@32187
---

diff --git a/lib/IPC/Cmd.pm b/lib/IPC/Cmd.pm
index f41647c..bb951f8 100644
--- a/lib/IPC/Cmd.pm
+++ b/lib/IPC/Cmd.pm
@@ -125,6 +125,10 @@ sub can_use_ipc_open3   {
     my $self    = shift;
     my $verbose = shift || 0;
 
+    ### ipc::open3 is not working on VMS becasue of a lack of fork.
+    ### todo, win32 also does not have fork, so need to do more research.
+    return 0 if IS_VMS;
+
     ### ipc::open3 works on every platform, but it can't capture buffers
     ### on win32 :(
     return unless can_load(