diff options
author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-08 18:07:48 -0400 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-10 07:04:20 +0000 |
commit | 91643db927ccb70d2639abfb85e226ac0ae6b224 (patch) | |
tree | dfbf0aaefce81bdc6179e1761eb9e0d18a5ee90d /os2/os2.c | |
parent | c4d9b39d8f15049e1549fda7afe0c7c2d758d308 (diff) | |
download | perl-91643db927ccb70d2639abfb85e226ac0ae6b224.tar.gz |
Combined OS/2 support
Message-Id: <199806090207.WAA02015@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1103
Diffstat (limited to 'os2/os2.c')
-rw-r--r-- | os2/os2.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -163,8 +163,11 @@ os2_cond_wait(perl_cond *c, perl_mutex *m) if ((rc = DosResetEventSem(*c,&na)) && (rc != ERROR_ALREADY_RESET)) croak("panic: COND_WAIT-reset: rc=%i", rc); if (m) MUTEX_UNLOCK(m); - if (CheckOSError(DosWaitEventSem(*c,SEM_INDEFINITE_WAIT))) + if (CheckOSError(DosWaitEventSem(*c,SEM_INDEFINITE_WAIT)) + && (rc != ERROR_INTERRUPT)) croak("panic: COND_WAIT: rc=%i", rc); + if (rc == ERROR_INTERRUPT) + errno = EINTR; if (m) MUTEX_LOCK(m); } #endif @@ -356,7 +359,7 @@ result(int flag, int pid) /* global Argv[] contains arguments. */ int -do_aspawn(really, flag, execf) +do_spawn_ve(really, flag, execf) SV *really; U32 flag; U32 execf; |