diff options
| author | Nicolas R <atoomic@cpan.org> | 2022-07-20 19:14:53 +0000 |
|---|---|---|
| committer | ℕicolas ℝ <nicolas@atoomic.org> | 2022-07-20 14:48:48 -0600 |
| commit | 1a4403425056f786931cd30ce72b68a2139fc4b7 (patch) | |
| tree | 60b361cd3ee347092ea933267f4bd5dd84583796 /cpan/Pod-Checker | |
| parent | 414f46319f146406ae0d746cad20c4833153160a (diff) | |
| download | perl-1a4403425056f786931cd30ce72b68a2139fc4b7.tar.gz | |
Sync Pod::Checker with CPAN 1.75
integrate patch from RT#142524
Diffstat (limited to 'cpan/Pod-Checker')
| -rw-r--r-- | cpan/Pod-Checker/lib/Pod/Checker.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/cpan/Pod-Checker/lib/Pod/Checker.pm b/cpan/Pod-Checker/lib/Pod/Checker.pm index bee20d0bfa..1dfb58b128 100644 --- a/cpan/Pod-Checker/lib/Pod/Checker.pm +++ b/cpan/Pod-Checker/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'}" : ""; |