Re: [PATCH 3/4] search: support SWIG-generated Xapian.pm

[Eric Wong <e@80x24.org>]

Eric Wong <e@80x24.org> wrote:
> More information about the status of the "Xapian" Perl module here:
> https://trac.xapian.org/ticket/523

> diff --git a/lib/PublicInbox/Search.pm b/lib/PublicInbox/Search.pm
> index 88c8dc70..7d83419d 100644
> --- a/lib/PublicInbox/Search.pm
> +++ b/lib/PublicInbox/Search.pm
> @@ -17,20 +17,42 @@ use PublicInbox::MIME;
>  use PublicInbox::MID qw/id_compress/;
>  use PublicInbox::Over;
>  my $QP_FLAGS;
> +our %X = map { $_ => 0 } qw(BoolWeight Database Enquire
> +			NumberValueRangeProcessor QueryParser Stem);
> +our $Xap; # 'Search::Xapian' or 'Xapian'
> +my $ENQ_ASCENDING;
> +
>  sub load_xapian () {
> -	$QP_FLAGS ||= eval {
> -		require Search::Xapian;
> -		Search::Xapian->import(qw(:standard));
> +	return 1 if defined $Xap;
> +	for my $x (qw(Xapian Search::Xapian)) {
> +		eval "require $x";
> +		next if $@;

Given the current status of "Xapian" not being in Debian (where
the Xapian package maintainer is also upstream), perhaps the
order should be swapped in case there's other misbehaviors not
uncovered by our test suite:

diff --git a/lib/PublicInbox/Search.pm b/lib/PublicInbox/Search.pm
index 7d83419d..65c6ee83 100644
--- a/lib/PublicInbox/Search.pm
+++ b/lib/PublicInbox/Search.pm
@@ -24,7 +24,7 @@ my $ENQ_ASCENDING;
 
 sub load_xapian () {
 	return 1 if defined $Xap;
-	for my $x (qw(Xapian Search::Xapian)) {
+	for my $x (qw(Search::Xapian Xapian)) {
 		eval "require $x";
 		next if $@;