In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/6ca94f4195fb0098aa03840e9e36566404e034c5?hp=9ec4dadfbbcf94d284b7e489694f1fa9fd6647c0>
- Log -----------------------------------------------------------------
commit 6ca94f4195fb0098aa03840e9e36566404e034c5
Author: Rafael Garcia-Suarez <r...@consttype.org>
Date: Sat Mar 31 16:48:24 2012 +0200
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.
-----------------------------------------------------------------------
Summary of changes:
Porting/pod_lib.pl | 10 ++++------
1 files changed, 4 insertions(+), 6 deletions(-)
diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl
index 945e61c..b257c66 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}
--
Perl5 Master Repository
