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 ba9bdf0f72579a7d5b63d5351772be368192f186..78202b1a1246ba196335437ae08156bc2a32f7cc 100755 (executable)
--- 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);