diff options
author | Eric Wong <e@80x24.org> | 2023-11-22 00:13:31 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-11-22 01:03:05 +0000 |
commit | b64ce2044b0a9413855ad63ded4ddc9433e4ea9b (patch) | |
tree | 02bbaf2073b6853175a322b02cfe1f9f3acc262c /lib/PublicInbox | |
parent | fe3883762faf67fd6c4624ee721000e1f36bc59b (diff) | |
download | public-inbox-b64ce2044b0a9413855ad63ded4ddc9433e4ea9b.tar.gz |
We only care about error checking when stdout is an mbox output pointed to a pathname. This is noticeable with `lei up' with multiple non-mbox* destinations. We'll also ensure throwing exceptions to trigger lei->x_it from lei->do_env results in the epoll/kqueue watch being discarded, otherwise commands may never terminate (leading to stuck tests)
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r-- | lib/PublicInbox/LEI.pm | 1 | ||||
-rw-r--r-- | lib/PublicInbox/LeiToMail.pm | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/PublicInbox/LEI.pm b/lib/PublicInbox/LEI.pm index 8d235b37..86b71fcd 100644 --- a/lib/PublicInbox/LEI.pm +++ b/lib/PublicInbox/LEI.pm @@ -493,6 +493,7 @@ sub x_it ($$) { } elsif ($quit == \&CORE::exit) { # an admin (one-shot) command exit($code >> 8); } # else ignore if client disconnected + $self->dclose if $$ == $daemon_pid; } sub err ($;@) { diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm index 007191bb..a930fc30 100644 --- a/lib/PublicInbox/LeiToMail.pm +++ b/lib/PublicInbox/LeiToMail.pm @@ -612,8 +612,8 @@ sub _pre_augment_mbox { sub finish_output { my ($self, $lei) = @_; my $out = delete $lei->{1} // die 'BUG: no lei->{1}'; - my $old = delete $lei->{old_1}; - $lei->{1} = $old if $old; + my $old = delete $lei->{old_1} or return; # path only + $lei->{1} = $old; return if $out->close; # reaps gzip|pigz|xz|bzip2 my $msg = "E: Error closing $lei->{ovv}->{dst}"; $? ? $lei->child_error($?) : ($msg .= " ($!)"); |