summaryrefslogtreecommitdiff
path: root/os2/os2.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1998-06-08 18:07:48 -0400
committerGurusamy Sarathy <gsar@cpan.org>1998-06-10 07:04:20 +0000
commit91643db927ccb70d2639abfb85e226ac0ae6b224 (patch)
treedfbf0aaefce81bdc6179e1761eb9e0d18a5ee90d /os2/os2.c
parentc4d9b39d8f15049e1549fda7afe0c7c2d758d308 (diff)
downloadperl-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.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/os2/os2.c b/os2/os2.c
index 94d25e2061..d5457034c6 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -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;