diff options
-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; } |