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

fix for perl 5.10 and 5.8

Browse source
This commit is contained in:
DutchProgrammer 2016-03-24 23:31:52 +01:00
parent 5fb8e3dec7
commit 774dbd8914
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mysqltuner.pl
View file

@ -461,10 +461,11 @@ sub update_tuner_version {
my $receivedScripts = 0; my $receivedScripts = 0;
my $httpcli =`which curl`; my $httpcli =`which curl`;
foreach my $scriptKey (keys @scripts) { #foreach my $scriptKey (%{@scripts}) {
for my $scriptKey (0 .. $#scripts) {
my $script = $scripts[$scriptKey]; my $script = $scripts[$scriptKey];
chomp($httpcli); chomp($httpcli);
if ( 1 != 1 and defined($httpcli) and -e "$httpcli" ) { if ( 1 != 1 and defined($httpcli) and -e "$httpcli" ) {
debugprint "$httpcli is available."; debugprint "$httpcli is available.";