From 761baa2a300e426885675a01e4773193ab7101ff Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Mon, 29 Jun 2020 10:34:20 +0000 Subject: spawn: unblock SIGCHLD in subprocess Subprocess we spawn may want to use SIGCHLD for themselves. This also ensures we restore default signal handlers in the pure Perl version. --- lib/PublicInbox/SpawnPP.pm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'lib/PublicInbox/SpawnPP.pm') diff --git a/lib/PublicInbox/SpawnPP.pm b/lib/PublicInbox/SpawnPP.pm index 34ce2052..a72d5a2d 100644 --- a/lib/PublicInbox/SpawnPP.pm +++ b/lib/PublicInbox/SpawnPP.pm @@ -36,6 +36,11 @@ sub pi_fork_exec ($$$$$$) { if ($cd ne '') { chdir $cd or die "chdir $cd: $!"; } + $SIG{$_} = 'DEFAULT' for keys %SIG; + my $cset = POSIX::SigSet->new(); + $cset->addset(POSIX::SIGCHLD) or die "can't add SIGCHLD: $!"; + sigprocmask(SIG_UNBLOCK, $cset) or + die "can't unblock SIGCHLD: $!"; if ($ENV{MOD_PERL}) { exec which('env'), '-i', @$env, @$cmd; die "exec env -i ... $cmd->[0] failed: $!\n"; -- cgit v1.2.3-24-ge0c7