This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Skip files left by patch
authorFather Chrysostomos <sprout@cpan.org>
Wed, 25 May 2011 03:19:55 +0000 (20:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 25 May 2011 03:19:59 +0000 (20:19 -0700)
t/porting/podcheck.t

index b10c628..2f66423 100644 (file)
@@ -213,8 +213,9 @@ my $encoding_first = "=encoding must be first command (if present)";
 my $no_name = "There is no NAME";
 my $missing_name_description = "The NAME should have a dash and short description after it";
 
-# objects, tests, etc can't be pods, so don't look for them.
-my $non_pods = qr/\.(?:[achot]|zip|gz|bz2|jar|tar|tgz|PL|so)$/;
+# objects, tests, etc can't be pods, so don't look for them. Also skip
+# files output by the patch program.
+my $non_pods = qr/\.(?:[achot]|zip|gz|bz2|jar|tar|tgz|PL|so|orig|rej)$/;
 
 
 # Pod::Checker messages to suppress