diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2009-08-12 22:48:23 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2009-08-12 22:48:23 +0200 |
| commit | 4df686a0aa8ef2f75be6cee2bfa2874f1bbb4437 (patch) | |
| tree | 03833400baeb036eb0c87e3fa44a52574bfe07fd /lib/LXRng/Index | |
| parent | edd2d08a9aef32f442f43fb960a80680389b1685 (diff) | |
| parent | 40c6f593f54c8023d6ed74e695de6b3a56a74bad (diff) | |
Merge branch 'master' of /home/argggh/git/lxrng/v1.2
Diffstat (limited to 'lib/LXRng/Index')
| -rw-r--r-- | lib/LXRng/Index/DBI.pm | 3 | ||||
| -rw-r--r-- | lib/LXRng/Index/PgBatch.pm | 2 |
2 files changed, 3 insertions, 2 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(); } |