X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=ypp-sc-tools.git;a=blobdiff_plain;f=yarrg%2FCommodsDatabase.pm;h=0d491c43887318e1e66b170270aa422eb2c8dd5c;hp=f704f1241b90495b05eb120066bc52259b403030;hb=56930e8be13d91872c740164e9eb632d5477a455;hpb=a10948d5fc25a14690fc50219a47739fcead10af

diff --git a/yarrg/CommodsDatabase.pm b/yarrg/CommodsDatabase.pm
index f704f12..0d491c4 100644
--- a/yarrg/CommodsDatabase.pm
+++ b/yarrg/CommodsDatabase.pm
@@ -64,10 +64,10 @@ sub dbr_connect ($$) {
 
 sub db_connect_core ($) {
     my ($fn)= @_;
-    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)
 	or die "$fn $DBI::errstr ?";
     return $h;
     # default timeout is 30s which is plenty