10 if (!defined($warns)) {
11 print "usage: $0 <-p=project> <smatch_warns.txt> <db_file>\n";
15 my $db = DBI
->connect("dbi:SQLite:$db_file", "", "", {AutoCommit
=> 0});
16 $db->do("PRAGMA cache_size = 800000");
17 $db->do("PRAGMA journal_mode = OFF");
18 $db->do("PRAGMA count_changes = OFF");
19 $db->do("PRAGMA temp_store = MEMORY");
20 $db->do("PRAGMA locking = EXCLUSIVE");
24 open(WARNS
, "<$warns");
27 if (!($_ =~ /^.*? [^ ]*\(\) SQL: /)) {
30 ($dummy, $dummy, $sql) = split(/:/, $_, 3);
36 open(WARNS
, "<$warns");
39 if (!($_ =~ /^.*? [^ ]*\(\) SQL_late: /)) {
42 ($dummy, $dummy, $sql) = split(/:/, $_, 3);