Update Compress-Raw-Bzip2 to CPAN version 2.047

[perl5.git] / Porting / pod_lib.pl

diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl
index 7efe768..c86993d 100644 (file)
--- a/Porting/pod_lib.pl
+++ b/Porting/pod_lib.pl
@@ -47,9 +47,13 @@ sub pods_to_install {
 
     File::Find::find({no_chdir=>1,
                       wanted => sub {
+                          if (m!/t\z!) {
+                              ++$File::Find::prune;
+                              return;
+                          }
+
                           # $_ is $File::Find::name when using no_chdir
                           return unless m!\.p(?:m|od)\z! && -f $_;
-                          return if m!(?:^|/)t/!;
                           return if m!lib/Net/FTP/.+\.pm\z!; # Hi, Graham! :-)
                           # Skip .pm files that have corresponding .pod files
                           return if s!\.pm\z!.pod! && -e $_;
@@ -212,6 +216,8 @@ sub __prime_state {
         }
     }
     close $master or my_die("close pod/perl.pod: $!");
+    # This has to be special-cased somewhere. Turns out this is cleanest:
+    push @{$state{master}}, ['a2p', 'x2p/a2p.pod', {toc_omit => 1}];
 
     my_die("perl.pod sets flags for unknown pods: "
            . join ' ', sort keys %flag_set)