fix empty arg array condition

2021-07-13 17:22:03 +02:00
parent 4e52ea8215
commit a856bb574a
2 changed files with 2 additions and 2 deletions
--- a/FHEM/74_GardenaSmartDevice.pm
+++ b/FHEM/74_GardenaSmartDevice.pm
@ -407,7 +407,7 @@ sub Set {
    }
    elsif ( lc $cmd eq 'on' || lc $cmd eq 'off' || lc $cmd eq 'on-for-timer' ) {
        my $val = (
-            defined($aArg) && ref($aArg) eq 'ARRAY'
+            scalar(!@$aArg == 0) && ref($aArg) eq 'ARRAY'
            ? $aArg->[0] * 60
            : lc $cmd
        );