소스 검색

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;