From c22c3484d0aed2f8cd10c0cf9ad388dc1adecd76 Mon Sep 17 00:00:00 2001 From: borisneubert Date: Sun, 14 Dec 2014 18:27:10 +0000 Subject: [PATCH] 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 --- fhem/FHEM/10_OWServer.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/10_OWServer.pm b/fhem/FHEM/10_OWServer.pm index 26ba9f658..5146d8d4e 100644 --- a/fhem/FHEM/10_OWServer.pm +++ b/fhem/FHEM/10_OWServer.pm @@ -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 : ""; + 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