lei_overview: do not write if $lei->{1} is gone

We'll invalidate the {1} (stdout) field on SIGPIPE,
so don't trigger a Perl warning by writing to it.

diff --git a/lib/PublicInbox/LeiOverview.pm b/lib/PublicInbox/LeiOverview.pm
index 538d6bd56cbf1d1bb530a8ca07f846f82dba0f1f..8781259addfb8bb33440dc7c337f4f1f15a59a7a 100644 (file)
--- a/lib/PublicInbox/LeiOverview.pm
+++ b/lib/PublicInbox/LeiOverview.pm
@@ -99,12 +99,13 @@ sub ovv_begin {
 # called once by parent (via PublicInbox::EOFpipe)
 sub ovv_end {
        my ($self, $lei) = @_;
+       my $out = $lei->{1} or return;
        if ($self->{fmt} eq 'json') {
                # JSON doesn't allow trailing commas, and preventing
                # trailing commas is a PITA when parallelizing outputs
-               print { $lei->{1} } "null]\n";
+               print $out "null]\n";
        } elsif ($self->{fmt} eq 'concatjson') {
-               print { $lei->{1} } "\n";
+               print $out "\n";
        }
 }