aboutsummaryrefslogtreecommitdiffstats
path: root/lib/LXRng/Search/Xapian.pm
diff options
context:
space:
mode:
authorArne Georg Gleditsch <argggh@lxr.linpro.no>2007-12-04 08:45:41 +0100
committerArne Georg Gleditsch <argggh@lxr.linpro.no>2007-12-04 08:45:41 +0100
commit15f50e9ba5f64594ac610ad42ac75e484147f8a2 (patch)
tree7de2a7e6bcee6dd6b369c4cb3b6a6aaf512eff35 /lib/LXRng/Search/Xapian.pm
parent8c290c3b917b1683a8f4355019366d45d5ddb42f (diff)
Add file search caps, some tuning.
Diffstat (limited to 'lib/LXRng/Search/Xapian.pm')
-rw-r--r--lib/LXRng/Search/Xapian.pm4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/LXRng/Search/Xapian.pm b/lib/LXRng/Search/Xapian.pm
index 769cb9c..6f29c46 100644
--- a/lib/LXRng/Search/Xapian.pm
+++ b/lib/LXRng/Search/Xapian.pm
@@ -186,6 +186,9 @@ sub get_symbol_usage {
my $match = $matches->begin();
my $i = 0;
+ my $lines = 0;
+
+ match:
while ($i++ < $size) {
my $term = $enq->get_matching_terms_begin($match);
my $termend = $enq->get_matching_terms_end($match);
@@ -197,6 +200,7 @@ sub get_symbol_usage {
while ($pos ne $posend) {
$res{$match->get_document->get_data()}{0+$pos} = 1;
$pos++;
+ last match if $lines++ > 1000;
}
}
$term++;