diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/LXRng/Index/DBI.pm | 3 | ||||
| -rw-r--r-- | lib/LXRng/Index/PgBatch.pm | 2 | ||||
| -rw-r--r-- | lib/LXRng/Search/Xapian.pm | 2 |
3 files changed, 4 insertions, 3 deletions
diff --git a/lib/LXRng/Index/DBI.pm b/lib/LXRng/Index/DBI.pm index 8fcb391..eeb6a83 100644 --- a/lib/LXRng/Index/DBI.pm +++ b/lib/LXRng/Index/DBI.pm @@ -471,7 +471,8 @@ sub get_symbol_usage { my %rlines; foreach my $r (@$res) { - $rlines{$$r[0]} = [$$r[1] =~ /(\d+),?/g]; + $rlines{$$r[0]} = ref($$r[1]) eq 'ARRAY' + ? $$r[1] : [$$r[1] =~ /(\d+),?/g]; } return \%rlines; diff --git a/lib/LXRng/Index/PgBatch.pm b/lib/LXRng/Index/PgBatch.pm index c1b30eb..7bd67e6 100644 --- a/lib/LXRng/Index/PgBatch.pm +++ b/lib/LXRng/Index/PgBatch.pm @@ -52,7 +52,7 @@ sub transaction { # Only occasional synchronization if we're inside another # transaction. # TODO: Check fill grade of caches and flush based on that. - if ($self->{'writes'}++ % 491 == 0) { + if ($self->{'writes'}++ % 3259 == 0) { $self->flush(); $self->dbh->commit(); } diff --git a/lib/LXRng/Search/Xapian.pm b/lib/LXRng/Search/Xapian.pm index 014d57a..5230728 100644 --- a/lib/LXRng/Search/Xapian.pm +++ b/lib/LXRng/Search/Xapian.pm @@ -81,7 +81,7 @@ sub add_document { } my $doc_id = $self->wrdb->add_document($doc); $self->{'writes'}++; - $self->flush() if $self->{'writes'} % 499 == 0; + $self->flush() if $self->{'writes'} % 3271 == 0; return $doc_id; } |