From 65c53ad4bf0589c890f9c07383858f244c02c35a Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@taniquetil.(none)>
Date: Wed, 12 Aug 2009 22:40:17 +0200
Subject: Don't do textual manipulations on references...

---
 lib/LXRng/Index/DBI.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib')

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


From 40c6f593f54c8023d6ed74e695de6b3a56a74bad Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@taniquetil.(none)>
Date: Wed, 12 Aug 2009 22:40:51 +0200
Subject: Increase flush intervals somewhat.

---
 lib/LXRng/Index/PgBatch.pm | 2 +-
 lib/LXRng/Search/Xapian.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

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