sub db_connect_core ($) {
my ($fn)= @_;
- my $h= DBI->connect("dbi:SQLite:$fn",'','',
- { AutoCommit=>0,
- RaiseError=>1, ShowErrorStatement=>1,
- unicode=>1 })
+ my $opts = { AutoCommit=>0,
+ RaiseError=>1, ShowErrorStatement=>1,
+ sqlite_unicode=>1 };
+ my $h= DBI->connect("dbi:SQLite:$fn",'','',$opts)
or die "$fn $DBI::errstr ?";
return $h;
# default timeout is 30s which is plenty