Mercurial > hg > egg-tcls

diff fetch_weather.pl @ 392:afd9a2bc8626

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_weather: Improve data validity/error checking.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 05 Sep 2016 12:04:49 +0300
parents ff3037bc6efc
children 315f31e4f964
line wrap: on
line diff
--- a/fetch_weather.pl	Mon Sep 05 11:53:57 2016 +0300
+++ b/fetch_weather.pl	Mon Sep 05 12:04:49 2016 +0300
@@ -374,7 +374,7 @@
         foreach my $wdata (@{$data->{"roadweatherdata"}{"roadweather"}})
         {
           my $wid = $wdata->{"stationid"};
-          if (defined($meta_data->{$wid}) && $meta_data->{$wid}[2] ne "")
+          if (defined($meta_data->{$wid}) && defined($meta_data->{$wid}[2]) && $meta_data->{$wid}[2] ne "")
           {
             $nrecords++;
             $weatherdata->{$meta_data->{$wid}[2]} =