# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1455117437 -7200
# Node ID 365104ed353c833cd19f02bf5b09c9ed94774df5
# Parent  61e1e2118595d800497dd67c506668ba83881211# Parent  ff3037bc6efcf156bf06ab2130588ff8f56ea453
Merged.

diff -r 61e1e2118595 -r 365104ed353c fetch_weather.pl
--- a/fetch_weather.pl	Wed Feb 10 17:16:34 2016 +0200
+++ b/fetch_weather.pl	Wed Feb 10 17:17:17 2016 +0200
@@ -351,8 +351,8 @@
 
       # Parse the data ..
       my $meta_data = {};
-      my $csv = Text::CSV->new({blank_is_undef => 1, decode_utf8 => 1, sep_char => ";"});
-#      my $csv = Text::CSV->new({blank_is_undef => 1});
+#      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))