remove hash ref check
This commit is contained in:
parent
eea01cc5b8
commit
a294b26768
@ -726,19 +726,19 @@ sub ReadingsProcessing_Powerwalls {
|
||||
$readings{ 'wall_' . $i . '_' . $r } = $v
|
||||
if ( ref($v) ne 'HASH' );
|
||||
|
||||
if ( ref($v) eq 'HASH' ) {
|
||||
while ( my ( $s, $ts ) = each %{$v} ) {
|
||||
if ( ref( $ts ) eq 'ARRAY'
|
||||
&& scalar( @{ $ts } ) > 0 )
|
||||
{
|
||||
my $j = 0;
|
||||
for my $t ( @{ $ts } ) {
|
||||
$readings{ 'wall_' . $i . '_' . $r . '_' . $s . '_' . $j } = $t;
|
||||
$j++;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
# if ( ref($v) eq 'HASH' ) {
|
||||
# while ( my ( $s, $ts ) = each %{$v} ) {
|
||||
# if ( ref( $ts ) eq 'ARRAY'
|
||||
# && scalar( @{ $ts } ) > 0 )
|
||||
# {
|
||||
# my $j = 0;
|
||||
# for my $t ( @{ $ts } ) {
|
||||
# $readings{ 'wall_' . $i . '_' . $r . '_' . $s . '_' . $j } = $t;
|
||||
# $j++;
|
||||
# }
|
||||
# }
|
||||
# }
|
||||
# }
|
||||
}
|
||||
|
||||
$i++;
|
||||
@ -1096,7 +1096,7 @@ sub Rename {
|
||||
],
|
||||
"release_status": "stable",
|
||||
"license": "GPL_2",
|
||||
"version": "v1.0.4",
|
||||
"version": "v1.0.5",
|
||||
"author": [
|
||||
"Marko Oldenburg <leongaultier@gmail.com>"
|
||||
],
|
||||
|
@ -1 +1 @@
|
||||
UPD 2021-03-02_18:52:33 31370 FHEM/46_TeslaPowerwall2AC.pm
|
||||
UPD 2021-03-05_10:17:54 31396 FHEM/46_TeslaPowerwall2AC.pm
|
||||
|
Loading…
x
Reference in New Issue
Block a user