aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGZNGET FOSS Team <opensource@gznianguan.com>2017-11-15 10:20:11 +0100
committerGZNGET FOSS Team <opensource@gznianguan.com>2017-11-15 10:20:11 +0100
commitb007db0486601969344a89058d761ba8d0e59f63 (patch)
treebaa2d756ccf8fca8d574c66629137f8cc366d28c
parent06b47296e7643133e1e6774c3afce22cf5504ce7 (diff)
downloadperl-Arctica-Core-Mother-Forker-master.tar.gz
perl-Arctica-Core-Mother-Forker-master.tar.bz2
perl-Arctica-Core-Mother-Forker-master.zip
DESTROY: send signal 15 to childHEADmaster
-rw-r--r--lib/Arctica/Core/Mother/Forker.pm1
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'}");
}