diff options
author | Son Dinh <dinhs@objectcomputing.com> | 2022-04-04 17:00:53 -0500 |
---|---|---|
committer | Son Dinh <dinhs@objectcomputing.com> | 2022-04-04 17:00:53 -0500 |
commit | 146a30e97879d52584d681754354e3e1bc9df02b (patch) | |
tree | eebfaff38edce023da5cf7d98ddfbb4c6146b639 | |
parent | e401f02ed7c528e6caaba85763d1b153f56e75f3 (diff) | |
download | ATCD-146a30e97879d52584d681754354e3e1bc9df02b.tar.gz |
Update Kill function
-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 d04c86bc0ee..a585aa808e3 100644 --- a/ACE/bin/PerlACE/Process_Unix.pm +++ b/ACE/bin/PerlACE/Process_Unix.pm @@ -784,7 +784,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; |