diff options
| author | Dave Rolsky <autarch@urth.org> | 2011-09-15 23:00:09 -0500 |
|---|---|---|
| committer | Dave Rolsky <autarch@urth.org> | 2011-09-19 11:55:10 -0500 |
| commit | 1bdd992d07902b8887c514a43ee56c85266b3874 (patch) | |
| tree | 04a29522b9468fa2c3a30217475e24378c556086 /pod/buildtoc | |
| parent | f5adbb863b9bf7afd6cfc3e04d4857dedf088057 (diff) | |
| download | perl-1bdd992d07902b8887c514a43ee56c85266b3874.tar.gz | |
Explicitly ignore the stub pod files I just added when doing the sanity check
Diffstat (limited to 'pod/buildtoc')
| -rw-r--r-- | pod/buildtoc | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/pod/buildtoc b/pod/buildtoc index 68f75b3e24..96163c4f90 100644 --- a/pod/buildtoc +++ b/pod/buildtoc @@ -199,6 +199,12 @@ close $master; my (@cpanpods, %cpanpods, %cpanpods_short); my (%our_pods); + # These are stub files for deleted documents. We don't want them to show up + # in perl.pod, they just exist so that if someone types "perldoc perltoot" + # they get some sort of pointer to the new docs. + my %ignoredpods + = map { ( "$_.pod" => 1 ) } qw( perlboot perlbot perltooc perltoot ); + # Convert these to a list of filenames. foreach (keys %Pods, keys %Readmepods) { $our_pods{"$_.pod"}++; @@ -257,7 +263,7 @@ close $master; push @inconsistent, "$0: $i exists but is unknown by ../MANIFEST\n" if !$manipods{$i} && !$manireadmes{$i} && !$Copies{$i} && !$Generated{$i} && !$cpanpods{$i}; push @inconsistent, "$0: $i exists but is unknown by perl.pod\n" - if !$perlpods{$i} && !exists $Copies{$i} && !$cpanpods{$i}; + if !$perlpods{$i} && !exists $Copies{$i} && !$cpanpods{$i} && !$ignoredpods{$i}; } my %BuildFiles; foreach my $path (values %Build) { |