Assume Pod 6 is in UTF-8

hinrik · Jul 30, 2009 · 4c37cca · 4c37cca
1 parent 5b818a6
commit 4c37cca
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 0.19
     - Added dependency on Pod::Parser 1.36, because earlier versions
       don't recognize =encoding
+    - Assume Pod 6 is UTF-8 encoded
 
 0.18_02 Sun Jul 26 13:37:21 GMT 2009
     - Forgot Pod::Parser

diff --git a/lib/App/Grok/Parser/Pod6.pm b/lib/App/Grok/Parser/Pod6.pm
@@ -32,6 +32,7 @@ sub render_string {
     my ($self, $string, $format) = @_;
 
     open my $handle, '<', \$string or die "Can't open input filehandle: $!";
+    binmode $handle, ':utf8';
     my $result = $self->render_file($handle, $format);
     close $handle;
     return $result;