FHEM Forum

FHEM - Hausautomations-Systeme => Unterstützende Dienste => Thema gestartet von: betateilchen am 13 März 2016, 21:53:17

Titel: [patch] 59_Weather.pm
Beitrag von: betateilchen am 13 März 2016, 21:53:17
Hallo Boris,

nachdem hier im Forum schon mehrfach Perl Warnungen aus dem Weather-Modul


Useless use of int in void context at ./FHEM/59_Weather.pm line 468.
Useless use of a constant ("") in void context at ./FHEM/59_Weather.pm line 468.


moniert wurden, beispielsweise hier (https://forum.fhem.de/index.php/topic,50710.0.html), habe ich mal nachgeschaut, was man dagegen tun kann.

Hier mein Lösungsvorschlag, der bei mir die perl Warnungen verschwinden lässt.


Index: 59_Weather.pm
===================================================================
--- 59_Weather.pm (Revision 11066)
+++ 59_Weather.pm (Arbeitskopie)
@@ -465,7 +465,7 @@
         $value =~/chill="(-?[0-9.]*?)" .*direction="([0-9.]*?)" .*speed="([0-9.]*?)" .*/;
         $urlResult->{"readings"}->{"wind_chill"} = $1 if (defined($1));
         $urlResult->{"readings"}->{"wind_direction"} = $2 if defined($2);
-        my $windspeed= defined($3) and ($3 ne "") ? int($3+0.5) : "";
+        my $windspeed= (defined($3) && ($3 ne "")) ? int($3+0.5) : "";
         $urlResult->{"readings"}->{"wind_speed"} = $windspeed;
         $urlResult->{"readings"}->{"wind"} = $windspeed;# duplicate for compatibility
         if (defined($2) & defined($3)) {