From 192b828d2274a0cadd6d446e42fdd088eb1ae9cf Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 6 Dec 2015 10:23:12 +0000
Subject: [PATCH] 55_GDS.pm: fixed perl warning #45160

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

diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index e8343d48a..b7ef6f040 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -1021,6 +1021,7 @@ sub btIP_evalLayout {
 	      $params{yy} = $y1+$radius;
 	      $filled  //= 0; 
 	      $stroked //= 0;
+	      $link //= "";
           $link = AnalyzePerlCommand(undef,$link);
 	      $svg .= btIP_itemCircle($id,$x1,$y1,$radius,$filled,$stroked,$link,%params);
 	    }
@@ -1049,6 +1050,7 @@ sub btIP_evalLayout {
 	      $params{yy} = $y1+$ry;
 	      $filled  //= 0;
 	      $stroked //= 0;
+	      $link //= "";
           $link = AnalyzePerlCommand(undef,$link);
 	      $svg .= btIP_itemEllipse($id,$x1,$y1,$rx,$ry,$filled,$stroked,$link,%params);
 	    }