Make nowait spawn return correct pid on VMS.

Apparently I missed this back in eed5d6a149b02.  When spawning a
subprocess without waiting, the return value is the pid of that
process, but we need to let pp_system know we're doing that so it
doesn't manipulate the value as if it were an exit status.

One symptom was that t/test.pl's watchdog would sometimes report
that it had failed to start when in fact it had started just fine.

1 files changed, 5 insertions, 1 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 364496731e..8c35d9e70f 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -10954,7 +10954,11 @@ do_spawn2(pTHX_ const char *cmd, int flags)
     fp = safe_popen(aTHX_ cmd, mode, (int *)&sts);
     if (fp != NULL)
       my_pclose(fp);
-    /* sts will be the pid in the nowait case */
+    /* sts will be the pid in the nowait case, so leave a
+     * hint saying not to do any bit shifting to it.
+     */
+    if (flags & CLI$M_NOWAIT)
+        PL_statusvalue = -1;
   }
   return sts;
 }  /* end of do_spawn2() */