diff options
Diffstat (limited to 'ninka-sqlite.pl')
-rw-r--r-- | ninka-sqlite.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ninka-sqlite.pl b/ninka-sqlite.pl index eee0c0f..49b7576 100644 --- a/ninka-sqlite.pl +++ b/ninka-sqlite.pl @@ -23,7 +23,7 @@ if ($path eq "") { my ($pack, $db) = @ARGV; -my $dbh = DBI->connect("DBI:SQLite:dbname=$db", "", "", {RaiseError => 1}) +my $dbh = DBI->connect("DBI:SQLite:dbname=$db", "", "", {RaiseError => 1, AutoCommit => 0}) or die $DBI::errstr; $dbh->do("CREATE TABLE IF NOT EXISTS comments (filename TEXT, path TEXT, container TEXT, content TEXT, @@ -136,7 +136,8 @@ foreach my $file (@ninkafiles) { close($fh); } -$dbh->disconnect; +$dbh->commit(); +$dbh->disconnect(); sub parseLicenseData { my ($data) = @_; |