From 8d8742821f2abf964022650849423d618a088c48 Mon Sep 17 00:00:00 2001
From: Marc Green <marcgreen@cpan.org>
Date: Sat, 6 Aug 2011 11:09:43 -0400
Subject: Acknowledge occasional wrong line number and skip deprecated test

---
 cpan/Pod-Parser/lib/Pod/Checker.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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 });
-- 
cgit v1.2.1