The top-level $SIG{__WARN__} using $current_lei does the job, already. --- lib/PublicInbox/LEI.pm | 3 +-- 1 file changed, 1 insertion(+), 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) { -- unsubscribe: one-click, see List-Unsubscribe header archive: https://public-inbox.org/meta/