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 (file)
--- 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(