From f44373f6118921c5702f495f1a09a49861e0f51a Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Sat, 27 Mar 2021 16:41:18 +0100 Subject: [PATCH] :-) --- controls_TeslaPowerwall2AC.txt | 2 +- lib/FHEM/Tesla/Powerwall.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/controls_TeslaPowerwall2AC.txt b/controls_TeslaPowerwall2AC.txt index 3a12d2e..ea25812 100644 --- a/controls_TeslaPowerwall2AC.txt +++ b/controls_TeslaPowerwall2AC.txt @@ -1,2 +1,2 @@ UPD 2021-03-27_15:47:11 6982 FHEM/46_TeslaPowerwall2AC.pm -UPD 2021-03-27_16:39:34 28868 lib/FHEM/Tesla/Powerwall.pm +UPD 2021-03-27_16:41:12 28868 lib/FHEM/Tesla/Powerwall.pm diff --git a/lib/FHEM/Tesla/Powerwall.pm b/lib/FHEM/Tesla/Powerwall.pm index 8ee2386..e8dfed4 100644 --- a/lib/FHEM/Tesla/Powerwall.pm +++ b/lib/FHEM/Tesla/Powerwall.pm @@ -392,7 +392,7 @@ sub Set { elsif ( lc $cmd eq 'setpassword' ) { return q{please set Attribut emailaddr first} if ( AttrVal( $name, 'emailaddr', 'none' ) eq 'none' ); - return qq(usage: ${cmd} pass=) if ( scalar( @{$aArg} ) != 2 + return qq(usage: ${cmd} pass=) if ( scalar( @{$aArg} ) != 0 || scalar(keys %{$hArg}) != 1 ); StorePassword( $hash, $name, $hArg->{'pass'} );