From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 26 May 2009 02:43:27 +0000 (+1200)
Subject: Allow putting UTF-8 characters in the output.
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=411ec42dd5a4f00faebbc9b2172578c16a554c38;p=planner-tools.git

Allow putting UTF-8 characters in the output.

Thank you to Stéphane Sinclair for making the request.
---

diff --git a/planner2csv.pl b/planner2csv.pl
index ba9bdf0..78202b1 100755
--- a/planner2csv.pl
+++ b/planner2csv.pl
@@ -18,6 +18,9 @@ if (-! -f $file) {
   die "Sorry, what file do you want to convert to a CSV?\n";
 }
 
+# Spit out UTF-8 in the output.
+binmode STDOUT, ":utf8";
+
 my $parser = XML::LibXML->new;
 my $tree = $parser->parse_file($file);