index: check for xapian-compact when using --compact

Otherwise, users may be frustrated to discover it missing
a long indexing run.

diff --git a/script/public-inbox-index b/script/public-inbox-index
index 9855c67d31012ed734f3ff2c499bc14597a574a8..cb11075e2b9202f851c35e98690bc8c63b34da8c 100755 (executable)
--- a/script/public-inbox-index
+++ b/script/public-inbox-index
@@ -66,10 +66,14 @@ foreach my $ibx (@ibxs) {
        PublicInbox::Admin::scan_ibx_modules($mods, $ibx);
 }
 
+# "Search::Xapian" includes SWIG "Xapian", too:
+$opt->{compact} = 0 if !$mods->{'Search::Xapian'};
+
 PublicInbox::Admin::require_or_die(keys %$mods);
 my $env = PublicInbox::Admin::index_prepare($opt, $cfg);
 local %ENV = (%ENV, %$env) if $env;
 require PublicInbox::InboxWritable;
+PublicInbox::Xapcmd::check_compact() if $opt->{compact};
 PublicInbox::Admin::progress_prepare($opt);
 for my $ibx (@ibxs) {
        $ibx = PublicInbox::InboxWritable->new($ibx);