From 7b394d2acece3204c956a5c36f1047cbd5da9e6f Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Thu, 21 Aug 2008 21:37:54 +0200
Subject: Searching tests.

---
 lib/LXRng/Search/Xapian.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/LXRng/Search/Xapian.pm b/lib/LXRng/Search/Xapian.pm
index 03db5b8..db8e4d3 100644
--- a/lib/LXRng/Search/Xapian.pm
+++ b/lib/LXRng/Search/Xapian.pm
@@ -121,9 +121,11 @@ sub search {
     }
     else {
 	$query =~ s/([\S_]+_[\S_]*)/\"$1\"/g;
+	$query =~ s/\"((do|sys|pci|dev|spin)_)+/\"/g;
 	$query =~ s/_/ /g;
 	$query =~ s/\b(?![A-Z][^A-Z]*\b)(\S+)/\L$1\E/g;
     }
+    warn "$query";
 
     my $query = $qp->parse_query($query);
     $query = Search::Xapian::Query
-- 
cgit v1.2.3