summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorBarrie Slaymaker <barries@slaysys.com>2001-07-11 11:11:46 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-12 00:35:27 +0000
commit0698c26b0962200032e136c010a6eead072d5cf4 (patch)
tree0fc1e50bd210ea1fa63a0116990e6d997c40fb1f /win32
parent98e467d963acee4d1a7866eb7e9dd6c64605b460 (diff)
downloadperl-0698c26b0962200032e136c010a6eead072d5cf4.tar.gz
Re: ActivePerl 628 + warnings + fork + exec = spurious "Can't exec"?
Message-ID: <20010711151146.G24560@jester.slaysys.com> p4raw-id: //depot/perl@11282
Diffstat (limited to 'win32')
-rw-r--r--win32/win32.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/win32/win32.c b/win32/win32.c
index 50cf1c4cb3..85068b8966 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -3363,7 +3363,7 @@ win32_execvp(const char *cmdname, const char *const *argv)
/* if this is a pseudo-forked child, we just want to spawn
* the new program, and return */
if (w32_pseudo_id)
- return win32_spawnvp(P_WAIT, cmdname, (char *const *)argv);
+ return my_exit(win32_spawnvp(P_WAIT, cmdname, (char *const *)argv));
#endif
return execvp(cmdname, (char *const *)argv);
}