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

fix the build fail

Browse source
This commit is contained in:
DutchProgrammer 2016-03-24 14:25:12 +01:00
parent 10a5ad0fdb
commit 0be6ebb626
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
mysqltuner.pl
View file

@ -961,7 +961,7 @@ sub system_recommendations {
my @opened_ports=get_opened_ports; my @opened_ports=get_opened_ports;
infoprint "There is ". scalar @opened_ports. " listening port(s) on this server."; infoprint "There is ". scalar @opened_ports. " listening port(s) on this server.";
if (scalar(@opened_ports) > $opt{'maxportallowed'}) { if (scalar(@opened_ports) > $opt{'maxportallowed'}) {
badprint "There is too many listening ports: ". scalar(@opened_ports) " opened > ".$opt{'maxportallowed'}. "allowed."; badprint "There is too many listening ports: ". scalar(@opened_ports). " opened > ".$opt{'maxportallowed'}. "allowed.";
push( @generalrec, "Consider dedicating a server for your database installation with less services running on !" ); push( @generalrec, "Consider dedicating a server for your database installation with less services running on !" );
} else { } else {
goodprint "There is less than ".$opt{'maxportallowed'}." opened ports on this server."; goodprint "There is less than ".$opt{'maxportallowed'}." opened ports on this server.";