Mercurial > hg > egg-tcls
changeset 387:ff3037bc6efc
fetch_weather: Fix backwards compatibility with old Text::CSV version vs. utf8 and sep_char passing object creation.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Wed, 10 Feb 2016 14:33:04 +0200 |
parents | 299744a6c592 |
children | 365104ed353c fd0635443234 |
files | fetch_weather.pl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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))