diff options
author | Marc Green <marcgreen@cpan.org> | 2011-08-06 11:09:43 -0400 |
---|---|---|
committer | Marc Green <marcgreen@cpan.org> | 2011-12-20 16:14:27 -0500 |
commit | 8d8742821f2abf964022650849423d618a088c48 (patch) | |
tree | cfcc26d0922138eea8a0f779a85e415bbf10775d | |
parent | f9109081c1a7198bc9245b1a9e08b4c4704a32eb (diff) | |
download | perl-8d8742821f2abf964022650849423d618a088c48.tar.gz |
Acknowledge occasional wrong line number and skip deprecated test
-rw-r--r-- | cpan/Pod-Parser/lib/Pod/Checker.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/cpan/Pod-Parser/lib/Pod/Checker.pm b/cpan/Pod-Parser/lib/Pod/Checker.pm index 168eacf519..eba0a9adf5 100644 --- a/cpan/Pod-Parser/lib/Pod/Checker.pm +++ b/cpan/Pod-Parser/lib/Pod/Checker.pm @@ -321,6 +321,8 @@ these literal characters like this: =back +Note that the line number of the error/warning is sometimes off by a few. + =head1 RETURN VALUE B<podchecker> returns the number of POD syntax errors found or -1 if @@ -915,7 +917,9 @@ sub start_L { my $link = Pod::Hyperlink->new($flags->{'raw'}); foreach my $w ($link->warning()) { - # XXX skip if warning is about deprecated (blah) syntax + # It has been decided that the following should not be a warning + # so it is skipped + next if $w =~ /^\(section\) in '.+' deprecated$/; $self->poderror({ -line => $self->{'_line'}, -severity => 'WARNING', -msg => $w }); |