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 /lib/Arctica | |
| parent | 06b47296e7643133e1e6774c3afce22cf5504ce7 (diff) | |
| download | perl-Arctica-Core-Mother-Forker-b007db0486601969344a89058d761ba8d0e59f63.tar.gz perl-Arctica-Core-Mother-Forker-b007db0486601969344a89058d761ba8d0e59f63.tar.bz2 perl-Arctica-Core-Mother-Forker-b007db0486601969344a89058d761ba8d0e59f63.zip | |
Diffstat (limited to 'lib/Arctica')
| -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'}"); } |