From 55f2b99cb70551b2d13417989122367813a9ca03 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Sat, 20 Apr 2002 10:16:30 -0500 Subject: rescue perldoc for VMS From: "Craig A. Berry" Message-Id: p4raw-id: //depot/perl@16029 --- vms/vms.c | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'vms') diff --git a/vms/vms.c b/vms/vms.c index c56147cb07..68492e1d9b 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)); -- cgit v1.2.1