From d2f07186d9e7eb3f543260f66bf872625e3bbed1 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 23 Aug 2015 09:27:51 +0000
Subject: [PATCH] 98_SVG.pm: add cast for older perl versions (Forum #40293)

git-svn-id: https://svn.fhem.de/fhem/trunk@9114 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_SVG.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index 5e18ecb3a..70b106678 100755
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -1286,7 +1286,7 @@ SVG_render($$$$$$$$$$)
   my $h = $oh-2*$y;   # Rect size
 
   my @filter;
-  foreach my $src (keys $srcDesc->{src}) {
+  foreach my $src (keys %{$srcDesc->{src}}) {
     my $f = CallFn($src, "SVG_regexpFn", $src, $srcDesc->{src}{$src}{arg});
     push(@filter, $f) if($f);
   }