diff options
author | Karl Williamson <khw@cpan.org> | 2022-10-27 16:17:41 -0600 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-02-07 21:01:33 +0800 |
commit | 3e1c78bda6bcaff0d1d04c51c98ff3ea0ba0db8b (patch) | |
tree | 870574ed69e560f4eea52a9255f38a0529375ae0 /pod/buildtoc | |
parent | 70bac31a4f4e90f39d9876a34715f0c83d2684dd (diff) | |
download | perl-3e1c78bda6bcaff0d1d04c51c98ff3ea0ba0db8b.tar.gz |
buildtoc: Use mnemonic instead of hard-coded code point
\r is clearer and potentially more portable than \015
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 851b42c847..d8e40142b5 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -206,7 +206,7 @@ sub podset { local $/ = ''; while(<$fh>) { - tr/\015//d; + s/\r$//; if (s/^=head1 (NAME)\s*/=head2 /) { unhead1(); $OUT .= "\n\n=head2 "; |