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

fix error on show last start/shutdowns

Browse source
This commit is contained in:
Sergei A Mamonov 2016-12-07 16:23:53 +03:00
parent 2861883432
commit d3ea7ea342
1 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
mysqltuner.pl
View file

@ -1161,15 +1161,23 @@ sub log_file_recommandations {
infoprint scalar(@lastStarts). " start(s) detected in $myvar{'log_error'}"; infoprint scalar(@lastStarts). " start(s) detected in $myvar{'log_error'}";
my $nStart=0; my $nStart=0;
for my $startd (reverse @lastStarts[-10..-1]) { my $nEnd = 10;
if (scalar(@lastStarts) < $nEnd) {
$nEnd = scalar(@lastStarts);
}
for my $startd (reverse @lastStarts[-$nEnd..-1]) {
$nStart++; $nStart++;
infoprint "$nStart) $startd"; infoprint "$nStart) $startd";
} }
infoprint scalar(@lastShutdowns). " shutdown(s) detected in $myvar{'log_error'}"; infoprint scalar(@lastShutdowns). " shutdown(s) detected in $myvar{'log_error'}";
my $nShut=0; $nStart=0;
for my $shutd (reverse @lastShutdowns[-10..-1]) { $nEnd=10;
$nShut++; if (scalar(@lastShutdowns) < $nEnd) {
infoprint "$nShut) $shutd"; $nEnd = scalar(@lastShutdowns);
}
for my $shutd (reverse @lastShutdowns[-$nEnd..-1]) {
$nStart++;
infoprint "$nStart) $shutd";
} }
#exit 0; #exit 0;
} }