From: Hugo van der Sanden <hv@crypt.org>
Date: Mon, 27 Oct 2003 02:51:26 +0000 (+0000)
Subject: don't complain of podless .pm files that have a separate .pod file
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be6d62867c9b925b420185f49d5902db7ff9c880;p=p5sagit%2Fp5-mst-13.2.git

don't complain of podless .pm files that have a separate .pod file

p4raw-id: //depot/perl@21544
---

diff --git a/pod/buildtoc b/pod/buildtoc
index d66b712..4f9e684 100644
--- 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>: $!";