Fixed WeatherData.pm. NOAA had changed the format of their output causing REGEXP to fail.

This commit is contained in:
Eric Kennedy 2006-09-05 18:37:56 +00:00
parent 518d820a5e
commit d675ed5a29
2 changed files with 2 additions and 1 deletions

View file

@ -97,7 +97,7 @@ sub _getLocationData {
my $document = $response->content;
$document =~ s/\n/ /g;
$document =~ s/\s+/ /g;
$document =~ m!<hr>\s<div\salign="center">\s(.*?)<br>.*?<br>.*?<br>.*?<br>\s(.*?):\s(.*?) &deg;F<br>!;
$document =~ m!<div\salign="center">\s(.*?)<br>.*?<br>.*?<br>.*?<br>\s(.*?):\s(.*?) &deg;F<br>!;
$locData = {
query => $location,
cityState => $1 || $location,