diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-05-26 03:26:58 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-05-26 03:26:58 +0000 |
| commit | 8dea9e7da405b99d33557ea6302da325a5340bb0 (patch) | |
| tree | 2d319e33b6d36eed53fd0aab8aae4a29a7d8acda /bin | |
| parent | 6f8e715b730847bb3b0f572d6da205fcca6417ed (diff) | |
| download | ATCD-8dea9e7da405b99d33557ea6302da325a5340bb0.tar.gz | |
ChangeLogTag:Thu May 25 20:23:45 2000 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/Process_Win32.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/Process_Win32.pm b/bin/Process_Win32.pm index 7caca7c494b..b7b1171228d 100644 --- a/bin/Process_Win32.pm +++ b/bin/Process_Win32.pm @@ -47,7 +47,9 @@ sub TimedWait { my $self = shift; my $maxtime = shift; - Win32::Process::Wait ($self->[0], $maxtime * 1000); + if (Win32::Process::Wait ($self->[0], $maxtime * 1000) == 0) { + return -1; + } $status = 0; Win32::Process::GetExitCode ($self->[0], $status); return $status; |