diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-08-21 21:37:54 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-08-21 21:37:54 +0200 |
| commit | 7b394d2acece3204c956a5c36f1047cbd5da9e6f (patch) | |
| tree | 05b7acc6b630aadc41f8dc7e7ff5a16ec403df95 /lib/LXRng/Search/Xapian.pm | |
| parent | 17034adefacae12d6522eecc4a9e1f6ad04430fc (diff) | |
Searching tests.searching
Diffstat (limited to 'lib/LXRng/Search/Xapian.pm')
| -rw-r--r-- | lib/LXRng/Search/Xapian.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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 |