lei sucks: allow it to work without SQLite

And try to improve the message about Inline::C while we're at
it, since Socket::Msghdr isn't widely-packaged, yet.

2 files changed, 9 insertions, 7 deletions

diff --git a/lib/PublicInbox/LeiSucks.pm b/lib/PublicInbox/LeiSucks.pm
index 3e945d0b..e832f95e 100644
--- a/lib/PublicInbox/LeiSucks.pm
+++ b/lib/PublicInbox/LeiSucks.pm
@@ -11,7 +11,6 @@ use Digest::SHA ();
 use Config;
 use POSIX ();
 use PublicInbox::Config;
-use PublicInbox::Search;
 
 sub lei_sucks {
         my ($lei, @argv) = @_;
@@ -41,7 +40,8 @@ sub lei_sucks {
         } else {
                 push @out, "Unable to load DBI / DBD::SQLite: $@\n";
         }
-        if (PublicInbox::Search::load_xapian()) {
+        if (eval { require PublicInbox::Search } &&
+                        PublicInbox::Search::load_xapian()) {
                 push @out, 'Xapian '.
                         join('.', map {
                                 $PublicInbox::Search::Xap->can($_)->();
diff --git a/lib/PublicInbox/TestCommon.pm b/lib/PublicInbox/TestCommon.pm
index 14dac03f..d28b32b0 100644
--- a/lib/PublicInbox/TestCommon.pm
+++ b/lib/PublicInbox/TestCommon.pm
@@ -521,7 +521,8 @@ SKIP: {
         local $lei_cwdfh;
         opendir $lei_cwdfh, '.' or xbail "opendir .: $!";
         require_git(2.6, 1) or skip('git 2.6+ required for lei test', 2);
-        require_mods(qw(json DBD::SQLite Search::Xapian), 2);
+        my $mods = $test_opt->{mods} // [ 'lei' ];
+        require_mods(@$mods, 2);
         require PublicInbox::Config;
         require File::Path;
         local %ENV = %ENV;
@@ -534,10 +535,11 @@ SKIP: {
         require PublicInbox::Spawn;
         state $lei_daemon = PublicInbox::Spawn->can('send_cmd4') ||
                                 eval { require Socket::MsgHdr; 1 };
-        # XXX fix and move this inside daemon-only before 1.7 release
-        skip <<'EOM', 1 unless $lei_daemon;
-Socket::MsgHdr missing or Inline::C is unconfigured/missing
-EOM
+        unless ($lei_daemon) {
+                skip('Inline::C unconfigured/missing '.
+'(mkdir -p ~/.cache/public-inbox/inline-c) OR Socket::MsgHdr missing',
+                        1);
+        }
         $lei_opt = { 1 => \$lei_out, 2 => \$lei_err };
         my ($daemon_pid, $for_destroy, $daemon_xrd);
         my $tmpdir = $test_opt->{tmpdir};