FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

10_OWServer: remove Perl warning (forum 59466)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12462 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert 2016-10-29 06:57:00 +00:00
parent 8badb61439
commit 788b046006
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/10_OWServer.pm
View File

@ -283,7 +283,11 @@ OWServer_Read($@)
$ein = $rin;
my $nfound = select($rout=$rin, undef, $eout=$ein, 4);
if( $nfound ) {
chomp($ret= <READER>);
$ret= <READER>;
if(defined($ret)) {
chomp($ret) } else {
Log3 $hash, 5, "OWServer: undefined response from child $pid";
}
RemoveInternalTimer($pid);
OWServer_OpenDev($hash) if( $hash->{LAST_READ_FAILED} );
$hash->{LAST_READ_FAILED} = 0;