This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck: Fix skip upstream cpan
authorKarl Williamson <public@khwilliamson.com>
Sun, 19 Jun 2011 18:48:51 +0000 (12:48 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 21 Jun 2011 13:59:02 +0000 (07:59 -0600)
Normally upstream cpan modules are not pod checked, but in the
one case where two had the same name, an error was generated
nonetheless.

t/porting/known_pod_issues.dat
t/porting/podcheck.t

index f82d44e..3407ef8 100644 (file)
@@ -367,4 +367,3 @@ lib/version/internals.pod   Apparent broken link    1
 lib/version/internals.pod      Verbatim line length including indents exceeds 80 by    2
 lib/vmsish.pm  Verbatim line length including indents exceeds 80 by    1
 pod/perl5123delta.pod  Pod NAME already used   1
-cpan/list-util/xs.pp   Pod NAME already used   1
index 0b018a0..262b31b 100644 (file)
@@ -1315,6 +1315,8 @@ foreach my $filename (@files) {
                 $checker->set_skip("$prior_filename is a README apparently for $filename");
             } elsif ($filename =~ /\breadme\b/i) {
                 $checker->set_skip("$filename is a README apparently for $prior_filename");
+            } elsif (! $do_upstream_cpan && $filename =~ /^cpan/) {
+                $checker->set_skip("CPAN is upstream for $filename");
             } else { # Here have two pods with identical names that differ
                 $prior_checker->poderror(
                         { -msg => $duplicate_name,