This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
exclude autodoc.pl from pod checks
authorDavid Mitchell <davem@iabyn.com>
Wed, 25 Aug 2010 13:16:26 +0000 (14:16 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 25 Aug 2010 13:16:26 +0000 (14:16 +0100)
This script contains snippets of pod in here-doc sections which
gives false positives

t/porting/podcheck.t

index 87f6f7f..3fbe27c 100644 (file)
@@ -41,6 +41,7 @@ while (<$m>) {
     my ($file, $separator) = /^(\S+)(\s+)/;
        next if $file =~ /^cpan\//;
        next unless ($file =~ /\.(?:pm|pod|pl)$/);
+       next if $file eq 'autodoc.pl';
     push @files, $file;
 };
 @files = sort @files; # so we get consistent results