From 82dd2a9d7f0bc51aba9307856a2482ead2cf0a0c Mon Sep 17 00:00:00 2001 From: rudolfkoenig <> Date: Sun, 28 Oct 2012 17:59:51 +0000 Subject: [PATCH] GetFn without argument dumps warnings git-svn-id: https://svn.fhem.de/fhem/trunk@2032 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/01_FHEMWEB.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm index 2c49003b7..7c16b1a6b 100755 --- a/fhem/FHEM/01_FHEMWEB.pm +++ b/fhem/FHEM/01_FHEMWEB.pm @@ -2427,16 +2427,17 @@ FW_Get($@) $FW_wname= $hash->{NAME}; %FW_icons= %{$hash->{fhemIcons}}; - if($a[1] eq "icon") { + my $arg = (defined($a[1]) ? $a[1] : ""); + if($arg eq "icon") { return "need one icon as argument" if(int(@a) != 3); my $icon= FW_IconPath($a[2]); return defined($icon) ? $icon : "no such icon"; - } elsif($a[1] eq "pathlist") { + } elsif($arg eq "pathlist") { return FW_PathList(); } else { - return "Unknown argument $a[1], choose one of icon pathlist"; + return "Unknown argument $arg choose one of icon pathlist"; } }