From 2d4afc2e82e51825a593cf459acd747567f7c1ed Mon Sep 17 00:00:00 2001
From: DutchProgrammer <dutchprogrammer@gmail.com>
Date: Thu, 24 Mar 2016 23:41:30 +0100
Subject: [PATCH] fix for perl 5.10 and 5.8

---
 mysqltuner.pl | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/mysqltuner.pl b/mysqltuner.pl
index b2a4481..c6c20ee 100755
--- a/mysqltuner.pl
+++ b/mysqltuner.pl
@@ -461,10 +461,7 @@ sub update_tuner_version {
   my $receivedScripts = 0;
   my $httpcli         =`which curl`;
 
-  #foreach my $scriptKey (%{@scripts}) {
-  for my $scriptKey (0 .. $#scripts) {
-
-    my $script = $scripts[$scriptKey];
+  foreach my $script (@scripts) {
     
     chomp($httpcli);
     if ( 1 != 1 and defined($httpcli) and -e "$httpcli" ) {