mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 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 e3efb07bac
commit 9163bf0ec4
1 changed files with 5 additions and 1 deletions
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; $ein = $rin;
my $nfound = select($rout=$rin, undef, $eout=$ein, 4); my $nfound = select($rout=$rin, undef, $eout=$ein, 4);
if( $nfound ) { if( $nfound ) {
chomp($ret= <READER>); $ret= <READER>;
if(defined($ret)) {
chomp($ret) } else {
Log3 $hash, 5, "OWServer: undefined response from child $pid";
}
RemoveInternalTimer($pid); RemoveInternalTimer($pid);
OWServer_OpenDev($hash) if( $hash->{LAST_READ_FAILED} ); OWServer_OpenDev($hash) if( $hash->{LAST_READ_FAILED} );
$hash->{LAST_READ_FAILED} = 0; $hash->{LAST_READ_FAILED} = 0;