From ee7c14dc05644df11362ca5430a4ca9b3fb42761 Mon Sep 17 00:00:00 2001
From: "bbaetz%acm.org" <>
Date: Sun, 3 Aug 2003 11:39:45 +0000
Subject: Bug 212095 - checksetup.pl gets confused by newer DBD::mysql quoting
 of table values. r=jouni, a=justdave

---
 checksetup.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'checksetup.pl')

diff --git a/checksetup.pl b/checksetup.pl
index d0b1764b4..00605415d 100755
--- a/checksetup.pl
+++ b/checksetup.pl
@@ -1874,7 +1874,8 @@ if(scalar(@isam_tables)) {
 
 
 # Get a list of the existing tables (if any) in the database
-my @tables = map { $_ =~ s/.*\.//; $_ } $dbh->tables;
+$sth = $dbh->table_info(undef, undef, undef, "TABLE");
+my @tables = @{$dbh->selectcol_arrayref($sth, { Columns => [3] })};
 #print 'Tables: ', join " ", @tables, "\n";
 
 # add lines here if you add more --LOCAL-- config vars that end up in the enums:
-- 
cgit v1.2.3-24-g4f1b