diff options
author | GZNGET FOSS Team <opensource@gznianguan.com> | 2017-11-15 10:20:11 +0100 |
---|---|---|
committer | GZNGET FOSS Team <opensource@gznianguan.com> | 2017-11-15 10:20:11 +0100 |
commit | b007db0486601969344a89058d761ba8d0e59f63 (patch) | |
tree | baa2d756ccf8fca8d574c66629137f8cc366d28c | |
parent | 06b47296e7643133e1e6774c3afce22cf5504ce7 (diff) | |
download | perl-Arctica-Core-Mother-Forker-master.tar.gz perl-Arctica-Core-Mother-Forker-master.tar.bz2 perl-Arctica-Core-Mother-Forker-master.zip |
-rw-r--r-- | lib/Arctica/Core/Mother/Forker.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Arctica/Core/Mother/Forker.pm b/lib/Arctica/Core/Mother/Forker.pm index 0f6a213..bd2d312 100644 --- a/lib/Arctica/Core/Mother/Forker.pm +++ b/lib/Arctica/Core/Mother/Forker.pm @@ -744,6 +744,7 @@ sub ZombieSlayer {# This one may be usefull for external use too... sub DESTROY { my $self = $_[0]; + $self->signal(15); warn("Mother::Forker DESTROY object $self->{'child_id'}"); } |