fix bustage

diff --git a/checksetup.pl b/checksetup.pl
index 7349eabbfccaefc2a7871095b34e7a46e5b071dd..a86c7cb7eea602b6e394722b3a926305182d4c41 100755 (executable)
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1610,7 +1610,7 @@ $table{tokens} =
 ###########################################################################
 
 # Get a list of the existing tables (if any) in the database
-$sth = $dbh->table_info(undef, undef, undef, "TABLE");
+my $sth = $dbh->table_info(undef, undef, undef, "TABLE");
 my @tables = @{$dbh->selectcol_arrayref($sth, { Columns => [3] })};
 #print 'Tables: ', join " ", @tables, "\n";