lib/PublicInbox/LEI.pm | 3 +-- diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 3ed330f99315f74f351b84a07a5ee8069534046b..ceba16e4aea00fff897e0bf10cfb344c0604b88c 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -359,8 +359,7 @@ io_restore($self->{l2m}, $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) {