diff options
author | Eric Wong <e@80x24.org> | 2023-10-07 21:24:09 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-10-08 18:54:48 +0000 |
commit | ed1ad9b3b6ea3e6e22deaaf54fdc8230a3b09b8c (patch) | |
tree | dce43f04eaf5818ab783bcc859001c4e34fd618e /lib/PublicInbox/LeiToMail.pm | |
parent | 1661ff8e21f3cb1df1a3fc00d917f404f4eae734 (diff) | |
download | public-inbox-ed1ad9b3b6ea3e6e22deaaf54fdc8230a3b09b8c.tar.gz |
Specifying {cb_args} in the options hash felt awkward to me. Instead, just use the Perl stack like we do with awaitpid() and pass the list down directly.
Diffstat (limited to 'lib/PublicInbox/LeiToMail.pm')
-rw-r--r-- | lib/PublicInbox/LeiToMail.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm index f56ad330..8771592d 100644 --- a/lib/PublicInbox/LeiToMail.pm +++ b/lib/PublicInbox/LeiToMail.pm @@ -162,8 +162,8 @@ sub _post_augment_mbox { # open a compressor process from top-level lei-daemon my ($r, $w) = @{delete $lei->{zpipe}}; my $rdr = { 0 => $r, 1 => $lei->{1}, 2 => $lei->{2}, pgid => 0 }; my $pid = spawn($cmd, undef, $rdr); - $lei->{1} = PublicInbox::ProcessIO->maybe_new($pid, $w, { - cb_arg => [\&reap_compress, $lei, $cmd, $lei->{1} ] }); + $lei->{1} = PublicInbox::ProcessIO->maybe_new($pid, $w, + \&reap_compress, $lei, $cmd, $lei->{1}); } # --augment existing output destination, with deduplication |