diff options
| author | gthaker <gthaker@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-01-30 18:12:42 +0000 |
|---|---|---|
| committer | gthaker <gthaker@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2003-01-30 18:12:42 +0000 |
| commit | 7c9f94d6f37887914c0495d50dbb80bffa55e301 (patch) | |
| tree | 2f3df1f5b1a461f6ec3aa09c6d835f27cbd84de4 | |
| parent | 7f85c993838c264c5132ae71d3c559e7f293cd81 (diff) | |
| download | ATCD-7c9f94d6f37887914c0495d50dbb80bffa55e301.tar.gz | |
Added code to set $self->{RUNNING} to 0 at the end of the Wait() method
| -rw-r--r-- | bin/PerlACE/Process_Unix.pm | 2 | ||||
| -rw-r--r-- | bin/PerlACE/Process_Win32.pm | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/bin/PerlACE/Process_Unix.pm b/bin/PerlACE/Process_Unix.pm index 4b8966cb2c0..fe75bdffb60 100644 --- a/bin/PerlACE/Process_Unix.pm +++ b/bin/PerlACE/Process_Unix.pm @@ -326,6 +326,8 @@ sub Wait () my $self = shift; waitpid ($self->{PROCESS}, 0); + + $self->{RUNNING} = 0; } sub TimedWait ($) diff --git a/bin/PerlACE/Process_Win32.pm b/bin/PerlACE/Process_Win32.pm index 18912185c0b..1e5c77739de 100644 --- a/bin/PerlACE/Process_Win32.pm +++ b/bin/PerlACE/Process_Win32.pm @@ -285,6 +285,8 @@ sub Wait () if ($self->{RUNNING}) { Win32::Process::Wait ($self->{PROCESS}, INFINITE); } + + $self->{RUNNING} = 0; } |