diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-15 04:07:18 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-15 04:07:18 +0000 |
commit | f55ee38a033ce570145fdd38bb9f09acf59d37cd (patch) | |
tree | d09466217844d04a8289a2d2d15377ce38987426 /win32/runperl.c | |
parent | e6d5c5302bca4863c13ae11aa5ed04b35c9d89f5 (diff) | |
download | perl-f55ee38a033ce570145fdd38bb9f09acf59d37cd.tar.gz |
various win32 odds and ends
- added support for waitpid(), open2/open3, and a bugfix for kill()
from Ronald Schmidt <RonaldWS@aol.com>
- tweak testsuite mods of above
- regenerate win32/config_H.?c
- change kill() to win32_kill() and export it
- coalesce common code in win32.c
- add PerlProc_waitpid() and export win32_waitpid()
result builds and passes on the three win32 compilers
p4raw-id: //depot/perl@1134
Diffstat (limited to 'win32/runperl.c')
-rw-r--r-- | win32/runperl.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/win32/runperl.c b/win32/runperl.c index 17d2ac2a57..7d49182168 100644 --- a/win32/runperl.c +++ b/win32/runperl.c @@ -582,7 +582,7 @@ public: }; virtual int Kill(int pid, int sig) { - return kill(pid, sig); + return win32_kill(pid, sig); }; virtual int Killpg(int pid, int sig) { @@ -627,6 +627,10 @@ public: { return win32_wait(status); }; + virtual int Waitpid(int pid, int *status, int flags) + { + return win32_waitpid(pid, status, flags); + }; virtual Sighandler_t Signal(int sig, Sighandler_t subcode) { return 0; |