->DESTROY can get triggered in child processes, which
unnecessarily duplicates messages queued up for display
when lei spawns extra workers.
---
lib/PublicInbox/LeiFinmsg.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lib/PublicInbox/LeiFinmsg.pm b/lib/PublicInbox/LeiFinmsg.pm
index 0ef5f070..395e7d3c 100644
--- 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;
--
unsubscribe: one-click, see List-Unsubscribe header
archive: https://public-inbox.org/meta/