diff options
| author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-12 01:04:36 +0000 |
|---|---|---|
| committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-06-12 01:04:36 +0000 |
| commit | 4e6a9798f1be338e76493a2c05ba27d3868cda11 (patch) | |
| tree | db9c5cd5a9432e485e76edd09fd4a2694cb99731 /bin | |
| parent | ef53bcb343a34f3a418b57c3e67f68f462a0736e (diff) | |
| download | ATCD-4e6a9798f1be338e76493a2c05ba27d3868cda11.tar.gz | |
ChangeLogTag:Fri Jun 11 20:04:37 1999 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/Process_Unix.pm | 6 |
1 files changed, 3 insertions, 3 deletions
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; |