X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FWeather.pl;h=d21e74efac9d4a67e8d03ba591d9f84961686333;hb=3936a3e1255582305fc4200485b71fa692e66bd3;hp=ecf37cf69262f4d64923db09ae748c9d10e91293;hpb=8b54ff5060a6605e169acc0694cb00b89ed22cab;p=infobot.git

diff --git a/src/Modules/Weather.pl b/src/Modules/Weather.pl
index ecf37cf..d21e74e 100644
--- a/src/Modules/Weather.pl
+++ b/src/Modules/Weather.pl
@@ -51,7 +51,7 @@ sub queryText {
 	}
 
 	my $ua = new LWP::UserAgent;
-	$ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam("httpProxy"));
+	$ua->proxy('http', $::param{'httpProxy'}) if (&::IsParam('httpProxy'));
 
 	$ua->timeout(10);
 	my $request = new HTTP::Request('GET', "http://weather.noaa.gov/weather/current/$station.html");
@@ -64,7 +64,7 @@ sub queryText {
 		    . " or http://www.nws.noaa.gov/tg/siteloc.shtml"
 		    . " for ICAO locations codes).";
 	    } else {
-		return "Something failed in connecting to the NOAA web"
+		return 'Something failed in connecting to the NOAA web'
 		    . " server. Try again later.";
 	    }
 	}
@@ -105,7 +105,7 @@ sub queryText {
 
 	if ($time) {
 	    if ($wxmode eq 'metar' && defined($feat{'ob'})) {
-	        return ("METAR " . $place . ": " . $feat{'ob'});
+	        return ('METAR ' . $place . ": " . $feat{'ob'});
 	    }
 
 	    $result = "$place; $id; last updated: $time";