projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
various small speed up changes
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index b868eaa93189e36659f5482c38f826e9b979eb34..c273970bf542df3a8c0589124486239e537eee05 100644
(file)
--- 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 ($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,
# 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;
}
# 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});
}
}