Skip to content

Commit 22789d1

Browse files
authored
Merge pull request #537 from grooverdan/min_dblist
minimal database list retrieval
2 parents 1f879d1 + 7a94bd5 commit 22789d1

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

mysqltuner.pl

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -239,6 +239,9 @@ package main;
239239
# Checks for supported or EOL'ed MySQL versions
240240
my ( $mysqlvermajor, $mysqlverminor, $mysqlvermicro );
241241

242+
# Database
243+
my @dblist;
244+
242245
# Super structure containing all information
243246
my %result;
244247
$result{'MySQLTuner'}{'version'} = $tunerversion;
@@ -5850,8 +5853,8 @@ sub mysql_databases {
58505853
return;
58515854
}
58525855

5853-
my @dblist = select_array(
5854-
"SELECT DISTINCT TABLE_SCHEMA FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ( 'mysql', 'performance_schema', 'information_schema', 'sys' );"
5856+
@dblist = select_array(
5857+
"SELECT SCHEMA_NAME FROM information_schema.SCHEMATA WHERE SCHEMA_NAME NOT IN ( 'mysql', 'performance_schema', 'information_schema', 'sys' );"
58555858
);
58565859
infoprint "There is " . scalar(@dblist) . " Database(s).";
58575860
my @totaldbinfo = split /\s/,
@@ -6028,9 +6031,6 @@ sub mysql_tables {
60286031
if (mysql_version_ge(8) and not mysql_version_eq(10)) {
60296032
infoprint "MySQL and Percona version 8 and greater have remove PROCEDURE ANALYSE feature"
60306033
}
6031-
my @dblist = select_array(
6032-
"SELECT DISTINCT TABLE_SCHEMA FROM information_schema.TABLES WHERE TABLE_SCHEMA NOT IN ( 'mysql', 'performance_schema', 'information_schema', 'sys' );"
6033-
);
60346034
foreach (@dblist) {
60356035
my $dbname = $_;
60366036
next unless defined $_;

0 commit comments

Comments
 (0)