diff options
| author | Son Dinh <dinhs@objectcomputing.com> | 2022-04-04 17:00:53 -0500 |
|---|---|---|
| committer | Son Dinh <dinhs@objectcomputing.com> | 2022-04-18 11:32:44 -0500 |
| commit | 738090b3f90575ee5801406d4357b003dd544a92 (patch) | |
| tree | 8b6e550f7a1d5d137282d4cabae0a04f7f61233b /ACE/bin | |
| parent | 9ebdc646d2dc45af1c73fd81e2c4dfaae5dcbf34 (diff) | |
| download | ATCD-738090b3f90575ee5801406d4357b003dd544a92.tar.gz | |
Update Kill function
Diffstat (limited to 'ACE/bin')
| -rw-r--r-- | ACE/bin/PerlACE/Process_Unix.pm | 2 | ||||
| -rw-r--r-- | ACE/bin/PerlACE/Process_VMS.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ACE/bin/PerlACE/Process_Unix.pm b/ACE/bin/PerlACE/Process_Unix.pm index fac659d8177..9b3e190c4fc 100644 --- a/ACE/bin/PerlACE/Process_Unix.pm +++ b/ACE/bin/PerlACE/Process_Unix.pm @@ -776,7 +776,7 @@ sub Kill ($) my $pid = waitpid ($self->{PROCESS}, WNOHANG); if ($pid > 0) { if (! $ignore_return_value) { - $self->check_return_value ($?); + $self->check_return_value ($?, {self_crash => 1}); } last; } diff --git a/ACE/bin/PerlACE/Process_VMS.pm b/ACE/bin/PerlACE/Process_VMS.pm index 979d22567bd..d7ad0ac64ea 100644 --- a/ACE/bin/PerlACE/Process_VMS.pm +++ b/ACE/bin/PerlACE/Process_VMS.pm @@ -316,7 +316,7 @@ sub Kill () if ($self->{RUNNING}) { kill ('KILL', $self->{PROCESS}); waitpid ($self->{PROCESS}, 0); - $self->check_return_value ($?); + $self->check_return_value ($?, {self_crash => 1}); } $self->{RUNNING} = 0; |