X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=c273970bf542df3a8c0589124486239e537eee05;hb=281b5d6baba694aa7b99be87a7be46a59ed0bd6c;hp=b868eaa93189e36659f5482c38f826e9b979eb34;hpb=fb8e4bcdc434a78a5fee2837e02401df88623555;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index b868eaa9..c273970b 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -181,7 +181,7 @@ sub init
 	if ($v4) {
 		my $new = ! -e $ufn;
 		$dbh = DBI->connect("dbi:SQLite:dbname=$ufn","","") or die "Cannot open $ufn ($!)\n";
-		if ($new && $dbh) {
+		if ($new) {
 			# create the table
 			my $table = q{create table user(
 call text not null unique,
@@ -193,6 +193,8 @@ data text not null
 			# Add indexes
 			$dbh->do(q(create index x1 on user(lastseen))) or die $dbh->errstr;
 		}
+		$dbh->do(q{PRAGMA cache_size = 8000});
+		$dbh->do(q{PRAGMA synchronous = OFF});
 	}