This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Honour void-ness of my_exit()
authorNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 12 Jul 2001 11:11:44 +0000 (11:11 +0000)
committerNick Ing-Simmons <nik@tiuk.ti.com>
Thu, 12 Jul 2001 11:11:44 +0000 (11:11 +0000)
p4raw-id: //depot/perlio@11295

win32/win32.c

index 85068b8..a0ebe03 100644 (file)
@@ -3362,8 +3362,10 @@ win32_execvp(const char *cmdname, const char *const *argv)
     dTHXo;
     /* if this is a pseudo-forked child, we just want to spawn
      * the new program, and return */
-    if (w32_pseudo_id)
-       return my_exit(win32_spawnvp(P_WAIT, cmdname, (char *const *)argv));
+    if (w32_pseudo_id) {
+       my_exit(win32_spawnvp(P_WAIT, cmdname, (char *const *)argv));
+       return 0;
+    }
 #endif
     return execvp(cmdname, (char *const *)argv);
 }