pod: Fix "wide character in print" warnings by declaring encoding correctly.

This commit is contained in:
Richard W.M. Jones
2013-04-05 10:33:25 +01:00
parent dfa25a46e3
commit a3de6eddd4
2 changed files with 2 additions and 0 deletions

View File

@@ -515,6 +515,7 @@ if ($text) {
$parser->output_string (\$output);
$parser->parse_string_document ($content);
open OUT, ">$text" or die "$progname: $text: $!";
binmode OUT, ":utf8";
print OUT $output or die "$progname: $text: $!";
close OUT or die "$progname: $text: $!";
print "$progname: wrote $text\n";