$sth->execute();
while (my($dbname) = $sth->fetchrow_array) {
next if lc($dbname) eq 'information_schema';
+ next if lc($dbname) eq 'performance_schema';
$dbs{$dbname} = 1;
}
undef $dbh;
=head1 AUTHOR
-Copyright (C) 2009-2010, Elan RuusamE<auml>e <glen@delfi.ee>
+Copyright (C) 2009-2011, Elan RuusamE<auml>e <glen@delfi.ee>
=head1 SEE ALSO