From 15f50e9ba5f64594ac610ad42ac75e484147f8a2 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Tue, 4 Dec 2007 08:45:41 +0100
Subject: Add file search caps, some tuning.

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

(limited to 'lib/LXRng/Search')

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++;
-- 
cgit v1.2.3