From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Fri, 16 Nov 2001 15:20:11 +0000 (-0500)
Subject: [Patch Perl@13023] VMS system() warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48023aa82fbffb88501ab33dabbc95499cf09f81;p=p5sagit%2Fp5-mst-13.2.git

[Patch Perl@13023] VMS system() warning
Message-Id: <011116152009.39eb8@DUPHY4.Physics.Drexel.Edu>

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

diff --git a/vms/vms.c b/vms/vms.c
index aa5577d..fc254ea 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() */
 /*}}}*/