patch from dondelelcaro

[infobot.git] / src / dbi.pl

diff --git a/src/dbi.pl b/src/dbi.pl
index 4936d42ebdd1dc6e046882365b277673f5a265a0..6761b230051bb94155d8dee874df547199558e8a 100644 (file)
--- a/src/dbi.pl
+++ b/src/dbi.pl
@@ -622,9 +622,12 @@ sub checkTables {
        }
 
        # retrieve a list of db's from the server.
-       foreach ($dbh->func('_ListTables')) {
-           $db{$_} = 1;
+       my @tables = map {s/^\`//; s/\`$//; $_;} $dbh->func('_ListTables');
+       if ($#tables == -1){
+           @tables = $dbh->tables;
        }
+       &status("Tables: ".join(',',@tables));
+       @db{@tables} = (1) x @tables;
 
     } elsif ($param{DBType} =~ /^SQLite$/i) {