lei up: only show finmsg in top-level lei-daemon

->DESTROY can get triggered in child processes, which
unnecessarily duplicates messages queued up for display
when lei spawns extra workers.

diff --git a/lib/PublicInbox/LeiFinmsg.pm b/lib/PublicInbox/LeiFinmsg.pm
index 0ef5f070201f226bf59dfece4c6564ee223b64f8..395e7d3c7083037b4fbf6e62c67265e09c9b6685 100644 (file)
--- a/lib/PublicInbox/LeiFinmsg.pm
+++ b/lib/PublicInbox/LeiFinmsg.pm
@@ -9,13 +9,13 @@ use v5.10.1;
 
 sub new {
        my ($cls, $io) = @_;
-       bless [ $io ], $cls;
+       bless [ $io, $$ ], $cls;
 }
 
 sub DESTROY {
        my ($self) = @_;
        my $io = shift @$self;
-       print $io @$self;
+       shift(@$self) == $$ and print $io @$self;
 }
 
 1;