浏览代码

add db errstr to db errors

George Baugh 2 年之前
父节点
当前提交
8c84be66ed
共有 1 个文件被更改,包括 1 次插入1 次删除
  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;