From ad8c9e80cb3c1ce545aba3be56b2b392aa7819b0 Mon Sep 17 00:00:00 2001
From: hexenmeister <hexenmeister@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 4 Oct 2015 19:33:03 +0000
Subject: [PATCH] fix: keys on reference is experimental (thx to rapster)

git-svn-id: https://svn.fhem.de/fhem/trunk@9377 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/42_SYSMON.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index 5640dcc8c..0b583c40b 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/FHEM/42_SYSMON.pm
@@ -4319,7 +4319,7 @@ sub SYSMON_ShowBarChartHtml($;$) {
   my $sysmon = {};
   my $html='';
   if(defined($main::defs{$dev}{READINGS})) {
-    foreach my $r (keys($main::defs{$dev}{READINGS})){
+    foreach my $r (keys %{$main::defs{$dev}->{READINGS}}){
       $sysmon->{$r} = $main::defs{$dev}{READINGS}{$r}{VAL};
     }
   } else {
@@ -4597,7 +4597,7 @@ sub SYSMON_ShowBarChartHtml_alt($;$$){
   # access sysmon data..
   #my $sysmon = SYSMON_getValues($dev);
   my $sysmon = {};  
-  foreach my $r (keys($main::defs{$dev}{READINGS})){
+  foreach my $r (keys %{$main::defs{$dev}->{READINGS}}){
     $sysmon->{$r} = $main::defs{$dev}{READINGS}{$r}{VAL};
   }