From 411ec42dd5a4f00faebbc9b2172578c16a554c38 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 26 May 2009 14:43:27 +1200
Subject: [PATCH] Allow putting UTF-8 characters in the output.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Thank you to Stéphane Sinclair for making the request.
---
 planner2csv.pl | 3 +++
 1 file changed, 3 insertions(+)

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);
 
-- 
2.30.2