Mercurial > hg > egg-tcls

diff fetch_weather.pl @ 367:1ca8ae195077

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fetch_weather: Fix parsing of old/cached datafile.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 18 Dec 2015 10:07:35 +0200
parents 3917a1515e31
children ed1c7f2d81df
line wrap: on
line diff
--- a/fetch_weather.pl	Thu Dec 17 19:27:08 2015 +0200
+++ b/fetch_weather.pl	Fri Dec 18 10:07:35 2015 +0200
@@ -285,7 +285,7 @@
   {
     foreach my $line (split(/\s*\n\s*/, $str))
     {
-      my @mtmp = split(/\|/, $line);
+      my @mtmp = split(/\|/, $line, -1);
       if (scalar(\@mtmp) >= 3)
       {
         $weatherdata->{shift @mtmp} = \@mtmp;