Changeset 426 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/MySQL.pm

Timestamp:

05/11/08 01:50:06 (5 years ago)

Author:

dom

Message:

ignore tables that aren't Wiki::Toolkit tables

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/MySQL.pm (modified) (2 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Setup/MySQL.pm

@@ -165 +165 @@
 }
 
-# Internal method - what tables are defined?
+# Internal method - what Wiki::Toolkit tables are defined?
 sub fetch_tables_listing {
         my $dbh = shift;
@@ -174 +174 @@
     my %tables;
     while ( my $table = $sth->fetchrow_array ) {
-        $tables{$table} = 1;
+        exists $create_sql{$table} and $tables{$table} = 1;
     }
         return %tables;