summaryrefslogtreecommitdiff
path: root/vms
diff options
context:
space:
mode:
authorCharles Lane <lane@DUPHY4.Physics.Drexel.Edu>2001-11-16 10:20:11 -0500
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-16 19:18:21 +0000
commit48023aa82fbffb88501ab33dabbc95499cf09f81 (patch)
tree83527110defa46bf04a9df99b7a36f21e5e1541c /vms
parent733129fea5e355adc21fc0f9e23ba448f59c5de3 (diff)
downloadperl-48023aa82fbffb88501ab33dabbc95499cf09f81.tar.gz
[Patch Perl@13023] VMS system() warning
Message-Id: <011116152009.39eb8@DUPHY4.Physics.Drexel.Edu> p4raw-id: //depot/perl@13056
Diffstat (limited to 'vms')
-rw-r--r--vms/vms.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/vms/vms.c b/vms/vms.c
index aa5577df2b..fc254ea3df 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -5108,12 +5108,6 @@ Perl_do_spawn(pTHX_ char *cmd)
if (!cmd || !*cmd) {
hadcmd = 0;
sts = lib$spawn(0,0,0,0,0,0,&substs,0,0,0,0,0,0);
- }
- else {
- (void) safe_popen(cmd, "nW", (int *)&sts);
- substs = sts;
- }
-
if (!(sts & 1)) {
switch (sts) {
case RMS$_FNF: case RMS$_DNF:
@@ -5140,8 +5134,13 @@ Perl_do_spawn(pTHX_ char *cmd)
Strerror(errno));
}
}
+ }
+ else {
+ (void) safe_popen(cmd, "nW", (int *)&sts);
+ }
+
vms_execfree(aTHX);
- return substs;
+ return sts;
} /* end of do_spawn() */
/*}}}*/