[patch] 59_Weather.pm

[betateilchen]

Hallo Boris,

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

Code Auswählen Erweitern


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, habe ich mal nachgeschaut, was man dagegen tun kann.

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

Code Auswählen Erweitern


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)) {