From 4199385c12bc021f55ff8f2897260135ecf0bc4f Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sun, 1 Mar 2015 21:50:33 +0000
Subject: [PATCH] 55_InfoPanel.pm: fixed perl warnings

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

diff --git a/fhem/FHEM/55_InfoPanel.pm b/fhem/FHEM/55_InfoPanel.pm
index d376d1f44..dbd8b2e8e 100644
--- a/fhem/FHEM/55_InfoPanel.pm
+++ b/fhem/FHEM/55_InfoPanel.pm
@@ -1157,11 +1157,12 @@ sub btIP_evalLayout {
 	      ($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link)= split("[ \t]+", $def, 10);
 	      ($x1,$y1)= btIP_xy($x1,$y1,%params);
 	      ($x2,$y2)= btIP_xy($x2,$y2,%params);
-              ($rx,$ry) = btIP_xy($rx,$ry,%params);
+          ($rx,$ry) = btIP_xy($rx,$ry,%params);
           $params{xx} = $x1;
           $params{yy} = $y2;
 	      $filled  //= 0; # set 0 as default (not filled)
           $stroked //= 0; # set 0 as default (not stroked)
+          $link //= "";
           $link = AnalyzePerlCommand(undef,$link);
 	      $svg .= btIP_itemRect($id,$x1,$y1,$x2,$y2,$rx,$ry,$filled,$stroked,$link,undef,%params);
 	    }