From 4aa67cad949f47e2aa0c9810e0970f6110d7318c Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sun, 6 Nov 2016 13:57:40 +0000
Subject: [PATCH] 55_InfoPanel.pm: fix 5.24.1 compatibility

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

diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index 3fdc76fa9..dc70f49dd 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -223,12 +223,12 @@ sub btIP_Get {
      when ("layout") {
         $ret = $defs{$name}{fhem}{layout};
      }
-#     when ("overrides") {
-#        last if(!defined($defs{$name}{fhem}{override}));
-#        foreach my $key ( keys $defs{$name}{fhem}{override} ) {
-#          $ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
-#        }
-#     }
+     when ("overrides") {
+        last if(!defined($defs{$name}{fhem}{override}));
+        foreach my $key ( keys %{$defs{$name}{fhem}{override}} ) {
+          $ret .= "$key => $defs{$name}{fhem}{override}{$key} \n";
+        }
+     }
      default {
         $ret = $usage;
      }
@@ -1160,7 +1160,7 @@ sub btIP_evalLayout {
 
         when("pop") {
           return unless $pstackcount;
-          foreach my $key ( keys $pstack{$pstackcount} ) {
+          foreach my $key ( keys %{$pstack{$pstackcount}} ) {
 #             Debug "pop key: $key, value: $pstack{$pstackcount}{$key}";
              $params{$key} = $pstack{$pstackcount}{$key};
           }