- my $h= DBI->connect("dbi:SQLite:$fn",'','',
- { AutoCommit=>0,
- RaiseError=>1, ShowErrorStatement=>1,
- sqlite_unicode=>1 })
+ my $opts = { AutoCommit=>0,
+ RaiseError=>1, ShowErrorStatement=>1,
+ sqlite_unicode=>1 };
+ my $h= DBI->connect("dbi:SQLite:$fn",'','',$opts)