diff options
author | Eric Wong <e@yhbt.net> | 2020-07-07 06:17:24 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-07-07 20:38:57 +0000 |
commit | 80a4e0da8cba8f782eb6083a0bc54dd8d84be238 (patch) | |
tree | a2d41c5cfb2d114c8e8720b0efa22123a0101f05 | |
parent | c0f3095c2f0fdf3409a2d7bc629230cd83a06f9f (diff) | |
download | public-inbox-80a4e0da8cba8f782eb6083a0bc54dd8d84be238.tar.gz |
Since Perl doesn't internally use a self-pipe for sleep/select/poll/etc, wake up every 10ms to ensure it can see the SIGCHLD; since neither signalfd nor EVFILT_SIGNAL are always available. Fixes: 761baa2a300e4268 ("spawn: unblock SIGCHLD in subprocess")
-rw-r--r-- | t/spawn.t | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -29,7 +29,7 @@ elsif ($pid > 0) { $? == 0 or die "child err: $>"; $SIG{CHLD} = sub { print "HI\n"; exit }; print "RDY $$\n"; - sleep while 1; + select(undef, undef, undef, 0.01) while 1; } EOF my $oldset = PublicInbox::Sigfd::block_signals(); |