diff options
Diffstat (limited to 'lib/PublicInbox/AutoReap.pm')
-rw-r--r-- | lib/PublicInbox/AutoReap.pm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/lib/PublicInbox/AutoReap.pm b/lib/PublicInbox/AutoReap.pm new file mode 100644 index 00000000..ae4984b8 --- /dev/null +++ b/lib/PublicInbox/AutoReap.pm @@ -0,0 +1,33 @@ +# Copyright (C) all contributors <meta@public-inbox.org> +# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> + +# automatically kill + reap children when this goes out-of-scope +package PublicInbox::AutoReap; +use v5.12; + +sub new { + my (undef, $pid, $cb) = @_; + bless { pid => $pid, cb => $cb, owner => $$ }, __PACKAGE__ +} + +sub kill { + my ($self, $sig) = @_; + CORE::kill($sig // 'TERM', $self->{pid}); +} + +sub join { + my ($self, $sig) = @_; + my $pid = delete $self->{pid} or return; + $self->{cb}->() if defined $self->{cb}; + CORE::kill($sig, $pid) if defined $sig; + my $r = waitpid($pid, 0); + $r == $pid or die "BUG? waitpid($pid) => $r (\$?=$? \$!=$!)"; +} + +sub DESTROY { + my ($self) = @_; + return if $self->{owner} != $$; + $self->join('TERM'); +} + +1; |