diff options
author | Eric Wong <e@80x24.org> | 2021-01-31 22:28:15 -1000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-02-01 11:38:09 +0000 |
commit | dbf555ee5906e5c778941ee850a88640a026b0ea (patch) | |
tree | 56527282ef153d0eb50e1d38a3d580af60efcd8b | |
parent | c2145231a10937edb7bc74a3b70fcb3d11938de3 (diff) | |
download | public-inbox-dbf555ee5906e5c778941ee850a88640a026b0ea.tar.gz |
The top-level $SIG{__WARN__} using $current_lei does the job, already.
-rw-r--r-- | lib/PublicInbox/LEI.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 3ed330f9..ceba16e4 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -359,8 +359,7 @@ sub atfork_child_wq { %PATH2CFG = (); undef $errors_log; $quit = \&CORE::exit; - (__WARN__ => sub { err($self, @_) }, - PIPE => sub { + (PIPE => sub { $self->x_it(13); # SIGPIPE = 13 # we need to close explicitly to avoid Perl warning on SIGPIPE for my $i (1, 2) { |