prevent noise when removing old tables
[bse.git] / 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;