aboutsummaryrefslogtreecommitdiff
path: root/lib/Arctica
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 /lib/Arctica
parent06b47296e7643133e1e6774c3afce22cf5504ce7 (diff)
downloadperl-Arctica-Core-Mother-Forker-b007db0486601969344a89058d761ba8d0e59f63.tar.gz
perl-Arctica-Core-Mother-Forker-b007db0486601969344a89058d761ba8d0e59f63.tar.bz2
perl-Arctica-Core-Mother-Forker-b007db0486601969344a89058d761ba8d0e59f63.zip
DESTROY: send signal 15 to childHEADmaster
Diffstat (limited to 'lib/Arctica')
-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'}");
}