From 6ca94f4195fb0098aa03840e9e36566404e034c5 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Sat, 31 Mar 2012 16:48:24 +0200 Subject: Reinstate dummy ignoredpods functionality The stub manpages (perlboot, perltoot, etc.) are listed in perl.pod, so they don't need to be ignored by buildtoc. They weren't ignored anyway, since the %ignoredpods hash was, well, ignored. --- Porting/pod_lib.pl | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'Porting/pod_lib.pl') diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl index 945e61c697..b257c66ed7 100644 --- a/Porting/pod_lib.pl +++ b/Porting/pod_lib.pl @@ -248,11 +248,9 @@ sub get_pod_metadata { my (%cpanpods, %cpanpods_leaf); 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 perltodo perltooc perltoot ); + # There are files that we don't want to list in perl.pod. + # Maybe the various stub manpages should be listed there. + my %ignoredpods = map { ( "$_.pod" => 1 ) } qw( ); # Convert these to a list of filenames. ++$our_pods{"$_.pod"} foreach keys %{$state{pods}}; @@ -300,7 +298,7 @@ sub get_pod_metadata { my @inconsistent; foreach my $i (sort keys %disk_pods) { push @inconsistent, "$0: $i exists but is unknown by buildtoc\n" - unless $our_pods{$i}; + unless $our_pods{$i} || $ignoredpods{$i}; push @inconsistent, "$0: $i exists but is unknown by MANIFEST\n" if !$BuildFiles{'MANIFEST'} # Ignore if we're rebuilding MANIFEST && !$manipods{$i} && !$manireadmes{$i} && !$state{copies}{$i} -- cgit v1.2.1