diff options
author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-12-04 08:46:20 +0100 |
---|---|---|
committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-12-04 08:46:20 +0100 |
commit | 738dd43449b86da6f61ad10ee7f2f0cea6f505f5 (patch) | |
tree | 65cb6a1b366132965eacc62fc172b33cda6ec948 /lib/LXRng/Search/Xapian.pm | |
parent | 66d7d426aef422521ee4ee6953fb888aac9813da (diff) | |
parent | 15f50e9ba5f64594ac610ad42ac75e484147f8a2 (diff) |
Merge branch 'master' of /home/argggh/git/lxrng/
Diffstat (limited to 'lib/LXRng/Search/Xapian.pm')
-rw-r--r-- | lib/LXRng/Search/Xapian.pm | 4 |
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++; |