lei q: do not leave temporary files after oneshot exit

[public-inbox.git] / lib / PublicInbox / LeiXSearch.pm

diff --git a/lib/PublicInbox/LeiXSearch.pm b/lib/PublicInbox/LeiXSearch.pm
index e997431f1e5521f657cbf284b97f48e6e5199845..b3cace74916cd442ffb19ea5a3b1d89feb78b760 100644 (file)
--- a/lib/PublicInbox/LeiXSearch.pm
+++ b/lib/PublicInbox/LeiXSearch.pm
@@ -387,8 +387,9 @@ sub query_prepare { # called by wq_do
 
 sub fail_handler ($;$$) {
        my ($lei, $code, $io) = @_;
-       if (my $lxs = delete $lei->{lxs}) {
-               $lxs->wq_wait_old($lei) if $lxs->wq_kill_old; # lei-daemon
+       for my $f (qw(lxs l2m)) {
+               my $wq = delete $lei->{$f} or next;
+               $wq->wq_wait_old($lei) if $wq->wq_kill_old; # lei-daemon
        }
        close($io) if $io; # needed to avoid warnings on SIGPIPE
        $lei->x_it($code // (1 >> 8));