Integrate:

[ 21544]
don't complain of podless .pm files that have a separate .pod file
p4raw-link: @21544 on //depot/perl: be6d62867c9b925b420185f49d5902db7ff9c880

p4raw-id: //depot/maint-5.8/perl@21547
p4raw-integrated: from //depot/perl@21541 'copy in' pod/buildtoc
	(@21298..)

diff --git a/pod/buildtoc b/pod/buildtoc
index d66b712..4f9e684 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -203,6 +203,8 @@ close MASTER;
       return if $file =~ m!lib/Math/BigInt/t/!;
       return if $file =~ m!/Devel/PPPort/[Hh]arness|lib/Devel/Harness!i;
       return if $file =~ m!XS/(?:APItest|Typemap)!;
+      my $pod = $file;
+      return if $pod =~ s/pm$/pod/ && -e $pod;
       die "$0: tut $File::Find::name" if $file =~ /TUT/;
       unless (open (F, "< $_\0")) {
        warn "$0: bogus <$file>: $!";