diff --git a/fhem/FHEM/88_HMCCUCHN.pm b/fhem/FHEM/88_HMCCUCHN.pm index c5c70fa51..0fe61bcaa 100644 --- a/fhem/FHEM/88_HMCCUCHN.pm +++ b/fhem/FHEM/88_HMCCUCHN.pm @@ -407,7 +407,7 @@ sub HMCCUCHN_Set ($@) } elsif ($opt eq 'config') { return HMCCU_SetError ($hash, "Usage: set $name config {parameter}={value} [...]") - if (scalar (keys %{$h}) < 1); + if ((scalar keys %{$h}) < 1); my $rc = HMCCU_RPCSetConfig ($hash, $ccuaddr, $h); return HMCCU_SetError ($hash, $rc) if ($rc < 0); diff --git a/fhem/FHEM/88_HMCCUDEV.pm b/fhem/FHEM/88_HMCCUDEV.pm index 47d63f50f..8f7fd9553 100644 --- a/fhem/FHEM/88_HMCCUDEV.pm +++ b/fhem/FHEM/88_HMCCUDEV.pm @@ -475,12 +475,11 @@ sub HMCCUDEV_Set ($@) } } elsif ($opt eq 'config') { - return HMCCU_SetError ($hash, "Usage: set $name config [{channel-number}] {parameter}={value} [...]") - if (scalar (keys %{$h}) < 1); + return HMCCU_SetError ($hash, "Usage: set $name config [{channel-number}] {parameter}={value} [...]") if ((scalar keys %{$h}) < 1); my $objname = $ccuaddr; # Channel number is optional because parameter can be related to device or channel - if (scalar (@$a) > 0) && $$a[0] =~ /^([0-9]{1,2})$/) { + if ((scalar @$a) > 0 && $$a[0] =~ /^([0-9]{1,2})$/) { return HMCCU_SetError ($hash, -7) if ($1 >= $hash->{channels}); $objname .= ':'.$1; }