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

---
 mysqltuner.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/mysqltuner.pl b/mysqltuner.pl
index 1938e8e..5858efc 100755
--- a/mysqltuner.pl
+++ b/mysqltuner.pl
@@ -461,7 +461,9 @@ sub update_tuner_version {
   my $receivedScripts = 0;
   my $httpcli         =`which curl`;
 
-  foreach my $script (@scripts) {
+  foreach my $scriptKey (keys @scripts) {
+
+    my $script = $scripts[$scriptKey];
 
     chomp($httpcli);
     if ( 1 != 1 and defined($httpcli) and -e "$httpcli" ) {