summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2017-09-20 13:44:59 +1000
committerTony Cook <tony@develop-help.com>2017-09-20 14:50:45 +1000
commit2fb0e7e4fee5700b0271b577a2e729301b7f483e (patch)
tree76473493aa8a6179503809aa34a6a9b529607f20
parente91a8fe59e04acc5aa33b600b132452b2e7e6165 (diff)
downloadperl-2fb0e7e4fee5700b0271b577a2e729301b7f483e.tar.gz
prevent pod/builttoc spewing bad UTF-8 errors under PERL_UNICODE
-rw-r--r--pod/buildtoc2
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc
index 8837f8e388..9c66e93792 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -186,7 +186,7 @@ my ($inhead1, $inhead2, $initem);
sub podset {
my ($pod, $file) = @_;
- open my $fh, '<', $file or my_die "Can't open file '$file' for $pod: $!";
+ open my $fh, '<:raw', $file or my_die "Can't open file '$file' for $pod: $!";
local *_;
my $found_pod;