diff options
| author | Karl Williamson <khw@cpan.org> | 2022-11-02 13:40:41 -0600 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-02-07 21:01:33 +0800 |
| commit | ce8f481253f8f6250878c58247f4d8fee6a3a3ce (patch) | |
| tree | d06860f437773178f67ffd84bf032461add69dc6 /pod/buildtoc | |
| parent | 3e1c78bda6bcaff0d1d04c51c98ff3ea0ba0db8b (diff) | |
| download | perl-ce8f481253f8f6250878c58247f4d8fee6a3a3ce.tar.gz | |
buildtoc: Fix to work on native line endings
buildtoc was failing to work properly on systems where files have line
endings that aren't plain \n, notably Windows.
The particular reason it fails is that it goes into paragraph slurp
mode. That mode is fooled by \r\n sequences, so fails to properly split
the input into paragraphs.
Diffstat (limited to 'pod/buildtoc')
| -rw-r--r-- | pod/buildtoc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index d8e40142b5..053b1817d5 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -186,7 +186,7 @@ my ($inhead1, $inhead2, $initem); sub podset { my ($pod, $file) = @_; - open my $fh, '<:raw', $file or my_die "Can't open file '$file' for $pod: $!"; + open my $fh, '<:', $file or my_die "Can't open file '$file' for $pod: $!"; local *_; my $found_pod; |