Avoid "unused" message for set without argument with eventMap Attribute

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@2447 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/fhem.pl

@@ -2604,7 +2604,7 @@ ReplaceEventMap($$$)
   my ($dev, $str, $dir) = @_;
   my $em = $attr{$dev}{eventMap};
   return $str    if($dir && !$em);
-  return @{$str} if(!$dir && (!$em || $str->[1] eq "?"));
+  return @{$str} if(!$dir && (!$em || int(@{$str}) < 2 || $str->[1] eq "?"));
   my $dname = shift @{$str} if(!$dir);
 
   my $nstr = join(" ", @{$str}) if(!$dir);