lei_xsearch: keep l2m->{-wq_s1} while preparing query

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

diff --git a/lib/PublicInbox/LeiXSearch.pm b/lib/PublicInbox/LeiXSearch.pm
index fa37543f32625d21fa25f4410a026f7467e30363..a6d827de9c30b444fc3dea1d392172fea1749038 100644 (file)
--- a/lib/PublicInbox/LeiXSearch.pm
+++ b/lib/PublicInbox/LeiXSearch.pm
@@ -273,9 +273,9 @@ sub do_query {
                pipe(my ($startq, $au_done)) or die "pipe: $!";
                $done_op->{'.'} = [ \&do_post_augment, $lei_orig,
                                        $zpipe, $au_done ];
-               $io[4] = *STDERR{GLOB}; # don't send l2m->{-wq_s1}
-               $self->wq_do('query_prepare', \@io, $lei);
+               local $io[4] = *STDERR{GLOB}; # don't send l2m->{-wq_s1}
                die "BUG: unexpected \$io[5]: $io[5]" if $io[5];
+               $self->wq_do('query_prepare', \@io, $lei);
                fcntl($startq, 1031, 4096) if $^O eq 'linux'; # F_SETPIPE_SZ
                $io[5] = $startq;
                $io[1] = $zpipe->[1] if $zpipe;