contrib/98_openweathermap.pm: fix perl warning

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@14102 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-04-25 10:54:58 +00:00
parent aae6bede39
commit ca9b3b3fdb

View File

@ -309,7 +309,7 @@ sub OWO_GetStatus($;$){
if(defined($paraVal)){ if(defined($paraVal)){
($p, $s, $v, $o) = split(":", AttrVal($name, $paraName, "")); ($p, $s, $v, $o) = split(":", AttrVal($name, $paraName, ""));
$o = 0 if(!defined($o)); $o = 0 if(!defined($o));
$v = ReadingsVal($s, $v, "?") + $o; $v = ReadingsVal($s, $v, 0) + $o;
$dataString = $dataString."&$p=$v"; $dataString = $dataString."&$p=$v";
Log3($name, 4, "owo $name: reading: $paraName $p $s $v"); Log3($name, 4, "owo $name: reading: $paraName $p $s $v");
readingsSingleUpdate($hash, "my_".$p, $v, 1); readingsSingleUpdate($hash, "my_".$p, $v, 1);