Subject line (try to keep under 50 characters)
Multi-line description of commit, feel free to be detailed. [Ticket: X]
This commit is contained in:
parent
ddbe145179
commit
5d245d5a3d
@ -899,9 +899,9 @@ sub PollChild {
|
|||||||
|
|
||||||
if ( defined( $hash->{".fhem"}{subprocess} ) ) {
|
if ( defined( $hash->{".fhem"}{subprocess} ) ) {
|
||||||
my $subprocess = $hash->{".fhem"}{subprocess};
|
my $subprocess = $hash->{".fhem"}{subprocess};
|
||||||
my $response = $subprocess->readFromChild();
|
my @response = $subprocess->readFromChild();
|
||||||
|
|
||||||
if ( !defined($response) ) {
|
if ( !defined(@response) ) {
|
||||||
Log3( $name, 5,
|
Log3( $name, 5,
|
||||||
qq{GardenaSmartBridge ($name) - still waiting ($subprocess->{lasterror}).}
|
qq{GardenaSmartBridge ($name) - still waiting ($subprocess->{lasterror}).}
|
||||||
);
|
);
|
||||||
@ -923,8 +923,8 @@ qq{GardenaSmartBridge ($name) - got result from asynchronous parsing}
|
|||||||
|
|
||||||
CleanSubprocess($hash);
|
CleanSubprocess($hash);
|
||||||
|
|
||||||
if ( ref($response) eq 'ARRAY' ) {
|
if ( scalar(@response) > 0 ) {
|
||||||
for my $json ( @{$response} ) {
|
for my $json (@response) {
|
||||||
|
|
||||||
#################
|
#################
|
||||||
$decode_json = eval { decode_json($json) };
|
$decode_json = eval { decode_json($json) };
|
||||||
@ -968,7 +968,7 @@ sub ResponseSubprocessing {
|
|||||||
( $json, $tail ) = ParseJSON($tail);
|
( $json, $tail ) = ParseJSON($tail);
|
||||||
}
|
}
|
||||||
|
|
||||||
$subprocess->writeToParent( \@response );
|
$subprocess->writeToParent(@response);
|
||||||
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
@ -1,2 +1,2 @@
|
|||||||
UPD 2022-02-01_10:58:50 49892 FHEM/73_GardenaSmartBridge.pm
|
UPD 2022-02-01_11:52:56 49880 FHEM/73_GardenaSmartBridge.pm
|
||||||
UPD 2022-01-31_19:35:42 56993 FHEM/74_GardenaSmartDevice.pm
|
UPD 2022-01-31_19:35:42 56993 FHEM/74_GardenaSmartDevice.pm
|
||||||
|
Loading…
x
Reference in New Issue
Block a user