Mercurial > hg > egg-tcls
diff fetch_weather.pl @ 198:60a4c69c7f25
Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 16 Jun 2014 03:18:38 +0300 |
parents | 0fd2435371eb |
children | 95012f8f687a |
line wrap: on
line diff
--- a/fetch_weather.pl Mon Jun 16 03:11:43 2014 +0300 +++ b/fetch_weather.pl Mon Jun 16 03:18:38 2014 +0300 @@ -46,13 +46,13 @@ sub fetch_http($) { - my $tmpAgent = LWP::UserAgent->new; - $tmpAgent->agent($settings{"http_user_agent"}); - $tmpAgent->timeout(10); + my $agent = LWP::UserAgent->new; + $agent->agent($settings{"http_user_agent"}); + $agent->timeout(10); - my $tmpRequest = HTTP::Request->new(GET => $_[0]); + my $req = HTTP::Request->new(GET => $_[0]); - return $tmpAgent->request($tmpRequest); + return $agent->request($req); }