diff options
author | Tony Cook <tony@develop-help.com> | 2017-09-20 13:44:59 +1000 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2017-09-20 14:50:45 +1000 |
commit | 2fb0e7e4fee5700b0271b577a2e729301b7f483e (patch) | |
tree | 76473493aa8a6179503809aa34a6a9b529607f20 | |
parent | e91a8fe59e04acc5aa33b600b132452b2e7e6165 (diff) | |
download | perl-2fb0e7e4fee5700b0271b577a2e729301b7f483e.tar.gz |
prevent pod/builttoc spewing bad UTF-8 errors under PERL_UNICODE
-rw-r--r-- | pod/buildtoc | 2 |
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; |