prevent noise when removing old tables
authorTony Cook <tony@develop-help.com>
Sun, 12 Apr 2020 03:28:18 +0000 (13:28 +1000)
committerTony Cook <tony@develop-help.com>
Sun, 12 Apr 2020 03:28:18 +0000 (13:28 +1000)
schema/mysql_build.pl

index 6d4ac18..6548255 100644 (file)
@@ -9,6 +9,7 @@ my $dist = shift || "schema/bse.sql";
 
 my $dbh = DBI->connect("dbi:mysql:$db", $un, $pw)
   or die "Cannot connect to db: ",DBI->errstr;
+$dbh->{PrintError} = 0; # we report our own errors
 
 my $tl = $dbh->prepare("show tables")
   or die "prepare show tables ",$dbh->errstr;