# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1455107584 -7200
# Node ID ff3037bc6efcf156bf06ab2130588ff8f56ea453
# Parent  299744a6c592ba3ca4a22e70589db77276ac87f0
fetch_weather: Fix backwards compatibility with old Text::CSV version vs. utf8 and sep_char passing object creation.

diff -r 299744a6c592 -r ff3037bc6efc fetch_weather.pl
--- a/fetch_weather.pl	Mon Feb 08 13:45:28 2016 +0200
+++ b/fetch_weather.pl	Wed Feb 10 14:33:04 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))