From 42c917bf6e6ac756cc551be684106be0320296cd Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 31 Dec 2003 03:40:05 +0000
Subject: [PATCH] patch from dondelelcaro

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@915 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/dbi.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/dbi.pl b/src/dbi.pl
index 4936d42..6761b23 100644
--- 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) {
 
-- 
2.39.2