Mercurial > hg > egg-tcls
changeset 367:1ca8ae195077
fetch_weather: Fix parsing of old/cached datafile.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Fri, 18 Dec 2015 10:07:35 +0200 |
parents | 1c9a40b47cd5 |
children | ed1c7f2d81df |
files | fetch_weather.pl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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;