search: warn on reopens and die on total failure

-watch on a busy/giant Maildir caused too many Xapian
errors while attempting to browse.

1 files changed, 3 insertions, 1 deletions

diff --git a/lib/PublicInbox/Search.pm b/lib/PublicInbox/Search.pm
index 5fc7682c..de296e1a 100644
--- a/lib/PublicInbox/Search.pm
+++ b/lib/PublicInbox/Search.pm
@@ -215,18 +215,20 @@ sub get_thread {
 sub retry_reopen {
         my ($self, $cb) = @_;
         my $ret;
-        for (1..10) {
+        for my $i (1..10) {
                 eval { $ret = $cb->() };
                 return $ret unless $@;
                 # Exception: The revision being read has been discarded -
                 # you should call Xapian::Database::reopen()
                 if (ref($@) eq 'Search::Xapian::DatabaseModifiedError') {
+                        warn "reopen try #$i on $@\n";
                         reopen($self);
                 } else {
                         warn "ref: ", ref($@), "\n";
                         die;
                 }
         }
+        die "Too many Xapian database modifications in progress\n";
 }
 
 sub _do_enquire {