# HG changeset patch # User Matti Hamalainen # Date 1483651108 -7200 # Node ID 6419327df9e7c6d4025fa47c75214c51075e618c # Parent 799320c3386e8f3aac0338d0bdd9645fbde46cc1 fetch_weather: Cosmetic. diff -r 799320c3386e -r 6419327df9e7 fetch_weather.pl --- a/fetch_weather.pl Thu Jan 05 23:16:46 2017 +0200 +++ b/fetch_weather.pl Thu Jan 05 23:18:28 2017 +0200 @@ -354,7 +354,7 @@ # my $csv = Text::CSV->new({blank_is_undef => 1, decode_utf8 => 1, sep_char => ";"}); my $csv = Text::CSV->new({blank_is_undef => 1, sep_char => ";"}); die("Failed to instantiate Text::CSV object?\n") unless defined($csv); - + foreach my $line (split(/\s*\n\s*/, $meta_str)) { if (defined($line) && $csv->parse($line))