Ver código fonte

add db errstr to db errors

George Baugh 2 anos atrás
pai
commit
8c84be66ed
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      lib/Trog/SQLite.pm

+ 1 - 1
lib/Trog/SQLite.pm

@@ -46,7 +46,7 @@ sub dbh {
     my $qq = File::Slurper::read_text($schema);
     my $db = DBI->connect( "dbi:SQLite:dbname=$dbname", "", "" );
     $db->{sqlite_allow_multiple_statements} = 1;
-    $db->do($qq) or die "Could not ensure database consistency";
+    $db->do($qq) or die "Could not ensure database consistency: ".$db->errstr;
     $db->{sqlite_allow_multiple_statements} = 0;
     $dbh->{$schema} = $db;