From b52f05845f93a1fb5fa3a68d9fa6220f8332db50 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 1 Mar 2015 16:54:09 +0000
Subject: [PATCH] 98_SVG.pm: avoid crash (Forum #34523)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8125 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_SVG.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index 12013cf6f..4d7bf8ab1 100755
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -1374,6 +1374,7 @@ SVG_render($$$$$$$$$$)
     my $lIdx = 0;
     $idx = $srcDesc->{rev}{$dIdx}{$lIdx};
     my $dp = $da->[$dIdx];
+    next if(ref $dp ne "SCALAR");       # Avoid Crash, Forum #34523
     my ($dpl,$dpoff,$l) = (length($$dp), 0, "");
     while($dpoff < $dpl) {                # using split instead is memory hog
       my $ndpoff = index($$dp, "\n", $dpoff);