From a580fa8dfa69741fd5bac6d63d7d79cd9038ae0f Mon Sep 17 00:00:00 2001
From: Chris Gray <chrismgray@gmail.com>
Date: Thu, 15 Mar 2012 11:13:06 -0600
Subject: [PATCH] Tell Perl that the files might have UTF-8.

---
 perl/new_org.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl/new_org.pm b/perl/new_org.pm
index 469330a..c9d66bc 100644
--- a/perl/new_org.pm
+++ b/perl/new_org.pm
@@ -14,6 +14,8 @@ sub run_func_in_emacs($$;$) {
     my $args = shift;
     my ($tf1, $tn1) = tempfile("/tmp/ikiwiki-org-1-XXXXX"); # Perl output, emacs input
     my ($tf2, $tn2) = tempfile("/tmp/ikiwiki-org-2-XXXXX"); # Perl input, emacs output
+    binmode($tf1, ":utf8");
+    binmode($tf2, ":utf8");
     print $tf1 $content;
     if (!defined $args) { $args = ""; }
     # WARNING: possible security hole