From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 20 Apr 2002 15:16:30 +0000 (-0500)
Subject: rescue perldoc for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=55f2b99cb70551b2d13417989122367813a9ca03;p=p5sagit%2Fp5-mst-13.2.git

rescue perldoc for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05111701b8e779a639b9@[172.16.52.1]>

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

diff --git a/vms/vms.c b/vms/vms.c
index c56147c..68492e1 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -2200,7 +2200,7 @@ static PerlIO *
 safe_popen(pTHX_ char *cmd, char *in_mode, int *psts)
 {
     static int handler_set_up = FALSE;
-    unsigned long int sts, flags=1;  /* nowait - gnu c doesn't allow &1 */
+    unsigned long int sts, flags = CLI$M_NOWAIT;
     unsigned int table = LIB$K_CLI_GLOBAL_SYM;
     int j, wait = 0;
     char *p, mode[10], symbol[MAX_DCL_SYMBOL+1], *vmspipe;
@@ -2471,7 +2471,11 @@ safe_popen(pTHX_ char *cmd, char *in_mode, int *psts)
     info->next=open_pipes;  /* prepend to list */
     open_pipes=info;
     _ckvmssts(sys$setast(1));
-    _ckvmssts(lib$spawn(&vmspipedsc, &nl_desc, &nl_desc, &flags,
+    /* Omit arg 2 (input file) so the child will get the parent's SYS$INPUT
+     * and SYS$COMMAND.  vmspipe.com will redefine SYS$INPUT, but we'll still
+     * have SYS$COMMAND if we need it.
+     */
+    _ckvmssts(lib$spawn(&vmspipedsc, 0, &nl_desc, &flags,
                       0, &info->pid, &info->completion,
                       0, popen_completion_ast,info,0,0,0));