diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-16 23:59:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-08-16 23:59:28 +0000 |
| commit | 68a29c53b68ed5d3196e36d984ad46cc171fe95a (patch) | |
| tree | 626bb44c8720286d96a37992437c5ffc0e6f5fbd /util.c | |
| parent | d6217f1e0304b5fb226ba520442a930ddceeea43 (diff) | |
| download | perl-68a29c53b68ed5d3196e36d984ad46cc171fe95a.tar.gz | |
on windows, the return values from wait() and waitpid() don't
match those of pseudo-pids
p4raw-id: //depot/perl@6659
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2676,6 +2676,7 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags) if (!pid) return -1; +#if !defined(HAS_WAITPID) && !defined(HAS_WAIT4) || defined(HAS_WAITPID_RUNTIME) if (pid > 0) { sprintf(spid, "%"IVdf, (IV)pid); svp = hv_fetch(PL_pidstatus,spid,strlen(spid),FALSE); @@ -2698,6 +2699,7 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags) return pid; } } +#endif #ifdef HAS_WAITPID # ifdef HAS_WAITPID_RUNTIME if (!HAS_WAITPID_RUNTIME) |