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(-)

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