Generate perlapi.pod and perlintern.pod at build time, instead of shipping them.

[p5sagit/p5-mst-13.2.git] / pod / buildtoc

diff --git a/pod/buildtoc b/pod/buildtoc
index 4054fda..5a680b1 100644 (file)
--- a/pod/buildtoc
+++ b/pod/buildtoc
@@ -3,7 +3,7 @@
 use strict;
 use vars qw($masterpodfile %Build %Targets $Verbose $Up %Ignore
            @Master %Readmes %Pods %Aux %Readmepods %Pragmata %Modules
-           %Copies);
+           %Copies %Generated);
 use File::Spec;
 use File::Find;
 use FindBin;
@@ -115,6 +115,7 @@ foreach (<MASTER>) {
       $flags{manifest_omit} = 1;
       $delta_target = "$filename.pod";
     }
+    $Generated{"$filename.pod"}++ if $flags =~ tr/g//d;
 
     if ($flags =~ tr/r//d) {
       my $readme = $filename;
@@ -202,7 +203,7 @@ close MASTER;
     warn "$0: $i exists but is unknown by buildtoc\n"
       unless $our_pods{$i};
     warn "$0: $i exists but is unknown by ../MANIFEST\n"
-      if !$manipods{$i} && !$manireadmes{$i} && !$Copies{$i};
+      if !$manipods{$i} && !$manireadmes{$i} && !$Copies{$i} && !$Generated{$i};
     warn "$0: $i exists but is unknown by perl.pod\n"
        if !$perlpods{$i} && !exists $sources{$i};
   }
@@ -213,6 +214,8 @@ close MASTER;
   foreach my $i (sort keys %manipods) {
     warn "$0: $i is known by ../MANIFEST but does not exist\n"
       unless $disk_pods{$i};
+    warn "$0: $i is known by ../MANIFEST but is marked as generated\n"
+      if $Generated{$i};
   }
   foreach my $i (sort keys %perlpods) {
     warn "$0: $i is known by perl.pod but does not exist\n"
@@ -522,7 +525,7 @@ sub generate_manifest {
 }
 sub generate_manifest_pod {
   generate_manifest map {["pod/$_.pod", $Pods{$_}]}
-    grep {!$Copies{"$_.pod"}} sort keys %Pods;
+    grep {!$Copies{"$_.pod"}} grep {!$Generated{"$_.pod"}} sort keys %Pods;
 }
 sub generate_manifest_readme {
   generate_manifest map {["README.$_", $Readmes{$_}]} sort keys %Readmes;