diff options
| -rw-r--r-- | ChangeLog-99b | 5 | ||||
| -rw-r--r-- | bin/Process_Unix.pm | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/ChangeLog-99b b/ChangeLog-99b index 37cec7c5eee..c2ca23ee9d7 100644 --- a/ChangeLog-99b +++ b/ChangeLog-99b @@ -1,3 +1,8 @@ +Fri Jun 11 20:04:37 1999 Carlos O'Ryan <coryan@cs.wustl.edu> + + * bin/Process_Unix.pm: + Fixed problems on TimedWait(). + Fri Jun 11 15:28:44 1999 Douglas C. Schmidt <schmidt@tango.cs.wustl.edu> * ace/OS.h: Need to add #include <signal.h> before <pthread.h> diff --git a/bin/Process_Unix.pm b/bin/Process_Unix.pm index e4d983a80a7..11463630bbf 100644 --- a/bin/Process_Unix.pm +++ b/bin/Process_Unix.pm @@ -3,7 +3,7 @@ package Process; $EXE_EXT = ""; -use POSIX ":sys_wait_h"; +use POSIX "sys_wait_h"; sub Create { @@ -63,8 +63,8 @@ sub TimedWait my $self = shift; my $maxtime = shift; while ($maxtime-- != 0) { - waitpid ($self->[0], WNOHANG); - if ($? != -1) { + my $pid = waitpid ($self->[0], &WNOHANG); + if ($pid != 0 && $? != -1) { return $?; } sleep 1; |