This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
help t/podcheck.t skip duplicate pod in utils
authorDavid Golden <dagolden@cpan.org>
Thu, 23 May 2013 22:08:24 +0000 (18:08 -0400)
committerDavid Golden <dagolden@cpan.org>
Fri, 24 May 2013 00:11:24 +0000 (20:11 -0400)
t/porting/podcheck.t

index 663a2b7..a22672b 100644 (file)
@@ -1498,6 +1498,8 @@ foreach my $filename (@files) {
                      && $prior_filename =~ /^cpan/)
             {
                 $checker->set_skip("CPAN is upstream for $filename");
+            } elsif ( $filename =~ /^utils/ or $prior_filename =~ /^utils/ ) {
+                $checker->set_skip("$filename copy is in utils/");
             } else { # Here have two pods with identical names that differ
                 $prior_checker->poderror(
                         { -msg => $duplicate_name,