clones/MySQLTuner-perl
1
0
Fork 0
mirror of https://github.com/major/MySQLTuner-perl.git synced 2024-09-21 07:47:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Issue #94

Browse Source
This commit is contained in:
Jean-Marie RENOUARD 2015-07-20 09:46:48 +02:00
parent 78680600cb
commit 6ad5b60ec6
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mysqltuner.pl
View File

@ -496,13 +496,16 @@ sub select_one {
sub get_tuning_info {
my @infoconn = select_array "\\s";
my ($tkey, $tval);
@infoconn = grep {!/Threads:/ and !/Connection id:/ and !/pager:/ and !/Using/ } @infoconn;
foreach my $line (@infoconn) {
if ($line =~ /\s*(.*):\s*(.*)/) {
debugprint "$1 => $2\n";
chomp($1);
chomp($2);
$result{'MySQL Client'}{$1} = $2;
$tkey=$1;
$tval=$2;
chomp($tkey);
chomp($tval);
$result{'MySQL Client'}{$tkey} = $tval;
}
}
$result{'MySQL Client'}{'Client Path'}=$mysqlcmd;
@ -761,6 +764,7 @@ sub check_architecture {
goodprint "Operating on 32-bit architecture with less than 2GB RAM\n";
}
}
$result{'OS'}{'Architecture'}="$arch bits";
}
# Start up a ton of storage engine counts/statistics