8 if (!defined($warns)) {
9 print "usage: $0 <warns.txt>\n";
13 my $db = DBI
->connect("dbi:SQLite:smatch_db.sqlite", "", "", {AutoCommit
=> 0});
14 $db->do("PRAGMA synchronous = OFF");
15 $db->do("PRAGMA cache_size = 800000");
16 $db->do("PRAGMA journal_mode = OFF");
20 open(WARNS
, "<$warns");
23 if (!($_ =~ /^.*? \w+\(\) SQL: /)) {
26 ($dummy, $dummy, $sql) = split(/:/);