diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-12-18 21:45:41 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-19 15:04:03 +0000 |
| commit | dfcfdb64cf0cdaf3745a1082d9b4a94480414c62 (patch) | |
| tree | dfc2125707e6a7bfbab5dcff74d64102e2c0509d /util.c | |
| parent | 505f3f16d6d7a74e8cf7e8f3a785787b06f153f9 (diff) | |
| download | perl-dfcfdb64cf0cdaf3745a1082d9b4a94480414c62.tar.gz | |
OS/2 build
Message-ID: <20011219024541.A29803@math.ohio-state.edu>
(skipped the t/TEST change)
p4raw-id: //depot/perl@13805
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -2459,9 +2459,11 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags) goto hard_way; # endif result = PerlProc_waitpid(pid,statusp,flags); + goto finish; #endif #if !defined(HAS_WAITPID) && defined(HAS_WAIT4) result = wait4((pid==-1)?0:pid,statusp,flags,Null(struct rusage *)); + goto finish; #endif #if !defined(HAS_WAITPID) && !defined(HAS_WAIT4) || defined(HAS_WAITPID_RUNTIME) hard_way: @@ -2476,6 +2478,7 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags) } } #endif + finish: if (result < 0 && errno == EINTR) { PERL_ASYNC_CHECK(); } |