fix hash in reading

This commit is contained in:
Marko Oldenburg 2021-02-27 16:41:31 +01:00
parent ed2b5f531d
commit cdc37dd24c
2 changed files with 4 additions and 3 deletions

View File

@ -723,7 +723,8 @@ sub ReadingsProcessing_Powerwalls {
if ( ref($powerwall) eq 'HASH' ) {
while ( my ( $r, $v ) = each %{$powerwall} ) {
$readings{ 'wall_' . $i . '_' . $r } = $v;
$readings{ 'wall_' . $i . '_' . $r } = $v
if ( ref($v) ne 'HASH' );
if ( ref($v) eq 'HASH' ) {
while ( my ( $s, $t ) = each %{$v} ) {
@ -1087,7 +1088,7 @@ sub Rename {
],
"release_status": "stable",
"license": "GPL_2",
"version": "v1.0.0",
"version": "v1.0.1",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],

View File

@ -1 +1 @@
UPD 2021-02-27_15:47:38 30957 FHEM/46_TeslaPowerwall2AC.pm
UPD 2021-02-27_16:41:15 31004 FHEM/46_TeslaPowerwall2AC.pm