hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor fix if no selects have been run (Thanks Kevin)

Browse source
This commit is contained in:
Major Hayden 2007-08-15 12:30:08 +00:00
parent efc984f945
commit 44f465ae0a
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
mysqltuner.pl
View file

@ -147,8 +147,9 @@ sub mysql_setup {
}
}
my (%mystat,%myvar);
my (%mystat,%myvar,$dummyselect);
sub get_all_vars {
$dummyselect = `mysql $mysqllogin -Bse "SELECT VERSION();"`;
my @mysqlvarlist = `mysql $mysqllogin -Bse "SHOW /*!50000 GLOBAL */ VARIABLES;"`;
foreach my $line (@mysqlvarlist) {
$line =~ /([a-zA-Z_]*)\s*(.*)/;