From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 22 Dec 2011 11:07:33 +0000 (+0100)
Subject: In pods_to_install(), use $File::Find::prune to skip t/ directories.
X-Git-Tag: v5.15.7~507^2~3
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/65e5b0167e9699a603db53d07657ab54bfacfa34

In pods_to_install(), use $File::Find::prune to skip t/ directories.

We don't want to install anything within a t/ directory. Previously the code
was determining this based on pattern matching the path. Instead of rejecting
what we find, it's more efficient to avoid scanning the directory tree in the
first place.
---

diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl
index 7efe768..94cf026 100644
--- 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 $_;