change foreach to for

2021-02-27 15:28:08 +01:00
parent f723f1efaf
commit a4ddfe9c8a
2 changed files with 2 additions and 2 deletions
--- a/FHEM/46_TeslaPowerwall2AC.pm
+++ b/FHEM/46_TeslaPowerwall2AC.pm
@ -719,7 +719,7 @@ sub ReadingsProcessing_Powerwalls {
        and scalar( @{ $decode_json->{powerwalls} } ) > 0 )
    {
        my $i = 0;
-        foreach my $powerwall ( @{ $decode_json->{powerwalls} } ) {
+        for my $powerwall ( @{ $decode_json->{powerwalls} } ) {
            if ( ref($powerwall) eq 'HASH' ) {

                while ( my ( $r, $v ) = each %{$powerwall} ) {