summaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorcoryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1999-06-12 01:04:36 +0000
committercoryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1999-06-12 01:04:36 +0000
commit4e6a9798f1be338e76493a2c05ba27d3868cda11 (patch)
treedb9c5cd5a9432e485e76edd09fd4a2694cb99731 /bin
parentef53bcb343a34f3a418b57c3e67f68f462a0736e (diff)
downloadATCD-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.pm6
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;