10_OWServer: avoid warning on undefined return value in OWServer_Read

git-svn-id: https://svn.fhem.de/fhem/trunk@7213 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert
2014-12-14 18:27:10 +00:00
parent ae9db574f0
commit c22c3484d0

View File

@@ -259,9 +259,10 @@ OWServer_Read($@)
close READER;
$ret= OWNet::read($hash->{DEF},$path);
$ret =~ s/^\s+//g if(defined($ret));
Log3 $hash, 5, "OWServer child read $path: $ret";
my $r= defined($ret) ? $ret : "<undefined>";
Log3 $hash, 5, "OWServer child read $path: $r";
delete $hash->{".path"};
print WRITER $ret;
print WRITER $ret if(defined($ret));
close WRITER;
# see http://forum.fhem.de/index.php?t=tree&goto=94670
# changed from