From e277d748379c8b67f09a7459ae6d2a9c904e3945 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sat, 5 Nov 2016 13:38:20 +0000
Subject: [PATCH] 55_InfoPanel.pm: fix perl 5.24 compatibilty (each on hash)

git-svn-id: https://svn.fhem.de/fhem/trunk@12506 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/55_InfoPanel.pm | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index 86dfd34a1..2c7c6b953 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -225,8 +225,8 @@ sub btIP_Get {
      }
      when ("overrides") {
         last if(!defined($defs{$name}{fhem}{override}));
-        while ( my ($key, $value) = each($defs{$name}{fhem}{override}) ) {
-          $ret .= "$key => $value \n";
+        foreach my $key ( keys $defs{$name}{fhem}{override} ) {
+          $ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
         }
      }
      default {
@@ -1160,9 +1160,11 @@ sub btIP_evalLayout {
 
         when("pop") {
           return unless $pstackcount;
-          while ( my ($key, $value) = each($pstack{$pstackcount}) ) {
-            $params{$key} = $value;
+          foreach my $key ( keys $pstack{$pstackcount} ) {
+#             Debug "pop key: $key, value: $pstack{$pstackcount}{$key}";
+             $params{$key} = $pstack{$pstackcount}{$key};
           }
+
           delete $pstack{$pstackcount};
           $pstackcount--;
         }
@@ -1179,8 +1181,9 @@ sub btIP_evalLayout {
         
         when("push") {
           $pstackcount++;
-          while ( my ($key, $value) = each(%params) ) {
-            $pstack{$pstackcount}{$key} = $value;
+          foreach my $key ( keys %params ) {
+#             Debug "push key: $key, value: $params{$key}";
+             $pstack{$pstackcount}{$key} = $params{$key};
           }
         }