[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 (file)
--- 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() */
 /*}}}*/