diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2024-02-15 21:14:42 +0000 |
| commit | 2ef219d80efde1bb5ab11cbdd8bdd059556b1f89 (patch) | |
| tree | 95a8cb845703f263101ea7a0842bb75d93109bef /Master/tlpkg/tlperl/lib/Pod/Checker.pm | |
| parent | 40aaa4ec3407e1ab404f4d1b0547205ac561269a (diff) | |
Perl 5.38.2
git-svn-id: svn://tug.org/texlive/trunk@69898 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Pod/Checker.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Pod/Checker.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Pod/Checker.pm b/Master/tlpkg/tlperl/lib/Pod/Checker.pm index bee20d0bfad..1dfb58b1284 100644 --- a/Master/tlpkg/tlperl/lib/Pod/Checker.pm +++ b/Master/tlpkg/tlperl/lib/Pod/Checker.pm @@ -10,7 +10,7 @@ package Pod::Checker; use strict; use warnings; -our $VERSION = '1.74'; ## Current version of this package +our $VERSION = '1.75'; ## Current version of this package =head1 NAME @@ -1112,7 +1112,10 @@ sub new { $self->{'-line'} ||= $caller->{'_line'}; $self->{'-type'} ||= $simple_link->{'type'}; - + # preserve raw link text for additional checks + $self->{'-raw-link-text'} = (exists $simple_link->{'raw'}) + ? "$simple_link->{'raw'}" + : ""; # Force stringification of page and node. (This expands any E<>.) $self->{'-page'} = exists $simple_link->{'to'} ? "$simple_link->{'to'}" : ""; $self->{'-node'} = exists $simple_link->{'section'} ? "$simple_link->{'section'}" : ""; |