prevent noise when removing old tables

diff --git a/schema/mysql_build.pl b/schema/mysql_build.pl
index 6d4ac18ea02862eae131de1ab2190995709ffabb..65482554c69cab8d2809abeb5d833441bb092efb 100644 (file)
--- a/schema/mysql_build.pl
+++ b/schema/mysql_build.pl
@@ -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;