# HG changeset patch # User Matti Hamalainen # Date 1449866318 -7200 # Node ID a74cb8a1abf5fd3bc745796b421ccefa827cc91f # Parent de411e7834aaafde5eab11081e97e203507391ea Add in commented out code. diff -r de411e7834aa -r a74cb8a1abf5 fetch_weather.pl --- a/fetch_weather.pl Fri Dec 11 22:37:53 2015 +0200 +++ b/fetch_weather.pl Fri Dec 11 22:38:38 2015 +0200 @@ -350,8 +350,10 @@ # Parse the data .. my $meta_data = {}; +# my $csv = Text::CSV->new({blank_is_undef => 1, decode_utf8 => 1}); my $csv = Text::CSV->new({blank_is_undef => 1}); 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))