require_config;
-warn "# reading SQL queries from $sql_dir\n" if $debug;
+warn "SQL queries from $sql_dir\n";
opendir(DIR, $sql_dir) || die "can't opendir $sql_dir: $!";
my @sql_files = sort grep { /\.sql$/i && -f "$sql_dir/$_" } readdir(DIR);
foreach my $sql ( split(/;/, $full_sql ) ) {
- warn "SQL: $sql\n" if $debug;
+ warn "SQL: $sql\n";
my $sth = $dbh->prepare($sql);
$sth->execute();