lib/PublicInbox/LeiOverview.pm | 6 ++---- diff --git a/lib/PublicInbox/LeiOverview.pm b/lib/PublicInbox/LeiOverview.pm index 31cc67f112efee5db69c7d7abae2f0efbca91a3c..ff15d2951c0c52375336e396e739174ce04faddb 100644 --- a/lib/PublicInbox/LeiOverview.pm +++ b/lib/PublicInbox/LeiOverview.pm @@ -147,10 +147,8 @@ } sub ovv_atexit_child { my ($self, $lei) = @_; - if (my $l2m = delete $lei->{l2m}) { - # gracefully stop lei2mail processes after all - # ->write_mail work is complete - delete $l2m->{-wq_s1}; + if (my $l2m = $lei->{l2m}) { + # wait for ->write_mail work we submitted to lei2mail if (my $rd = delete $l2m->{each_smsg_done}) { read($rd, my $buf, 1); # wait for EOF }