From: Robin Barker <Robin.Barker@npl.co.uk>
Date: Mon, 29 Jun 2009 14:05:18 +0000 (+0100)
Subject: Stop buildtoc warning that perltoc.pod is missing whist it is building same.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78fb583c0588329906d767eceec4c92fe2774964;p=p5sagit%2Fp5-mst-13.2.git

Stop buildtoc warning that perltoc.pod is missing whist it is building same.
---

diff --git a/pod/buildtoc b/pod/buildtoc
index 7b770f2..cae3dfe 100644
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -209,9 +209,13 @@ close MASTER;
     warn "$0: $i exists but is unknown by perl.pod\n"
 	if !$perlpods{$i} && !exists $sources{$i};
   }
+  my @BuildTargets = grep {defined} @Targets{keys %Build};
+  my %BuildFiles;
+  @BuildFiles{@BuildTargets} = @BuildTargets;
+  
   foreach my $i (sort keys %our_pods) {
     warn "$0: $i is known by buildtoc but does not exist\n"
-      unless $disk_pods{$i};
+      unless $disk_pods{$i} or $BuildFiles{$i};
   }
   foreach my $i (sort keys %manipods) {
     warn "$0: $i is known by ../MANIFEST but does not exist\n"
@@ -221,7 +225,7 @@ close MASTER;
   }
   foreach my $i (sort keys %perlpods) {
     warn "$0: $i is known by perl.pod but does not exist\n"
-      unless $disk_pods{$i};
+      unless $disk_pods{$i} or $BuildFiles{$i};
   }
 }