lib/PublicInbox/IPC.pm | 2 +- lib/PublicInbox/LeiSearch.pm | 17 ++++++++++------- diff --git a/lib/PublicInbox/IPC.pm b/lib/PublicInbox/IPC.pm index 497a6035aa747704f189f2c740d91cd26174c5fa..d909dc1c66357eaa46116e6111ea83cbcb329e0a 100644 --- a/lib/PublicInbox/IPC.pm +++ b/lib/PublicInbox/IPC.pm @@ -236,7 +236,7 @@ my $args = ipc_thaw($buf) // die "thaw error on buffer of size: $n"; undef $buf; my $sub = shift @$args; eval { $self->$sub(@$args) }; - warn "$$ wq_worker: $@" if $@; + warn "$$ $0 wq_worker: $@" if $@; delete @$self{0..($nfd-1)}; $n; } diff --git a/lib/PublicInbox/LeiSearch.pm b/lib/PublicInbox/LeiSearch.pm index 79b2fd7d165e2c3e46fefce98a73d29e48e33e2c..f9e5c8e9846ca4ab7c9626f31d77b9fd97dda176 100644 --- a/lib/PublicInbox/LeiSearch.pm +++ b/lib/PublicInbox/LeiSearch.pm @@ -55,13 +55,16 @@ my (%kw, %L, $doc, $x); $kw{flagged} = 1 if delete($smsg->{lei_q_tt_flagged}); my @num = $self->over->blob_exists($smsg->{blob}); for my $num (@num) { # there should only be one... - $doc = $xdb->get_document(num2docid($self, $num)); - $x = xap_terms('K', $doc); - %kw = (%kw, %$x); - if ($want_label) { # JSON/JMAP only - $x = xap_terms('L', $doc); - %L = (%L, %$x); - } + eval { + $doc = $xdb->get_document(num2docid($self, $num)); + $x = xap_terms('K', $doc); + %kw = (%kw, %$x); + if ($want_label) { # JSON/JMAP only + $x = xap_terms('L', $doc); + %L = (%L, %$x); + } + }; + warn "$$ $0 #$num (nshard=$self->{nshard}) $smsg->{blob}: $@"; } $smsg->{kw} = [ sort keys %kw ] if scalar(keys(%kw)); $smsg->{L} = [ sort keys %L ] if scalar(keys(%L));