do not look for modules under */*/{inc,t} for Module::CoreList

this avoids adding the internal modules inc::QuestionList (from perlfaq) or
Win32API::File::inc::ExtUtils::Myconst2perl (from Win32API-File)

1 files changed, 6 insertions, 0 deletions

diff --git a/Porting/corelist.pl b/Porting/corelist.pl
index 05393c0ada..7c75f06d16 100755
--- a/Porting/corelist.pl
+++ b/Porting/corelist.pl
@@ -96,6 +96,12 @@ if ($cpan) {
 
 find(
     sub {
+        if (-d) {
+          my @parts = File::Spec->splitdir($File::Find::name);
+          # be careful not to skip inc::latest
+          return $File::Find::prune = 1 if @parts == 3 and ($parts[-1] eq 'inc' or $parts[-1] eq 't');
+        }
+
         /(\.pm|_pm\.PL)$/ or return;
         /PPPort\.pm$/ and return;
         my $module = $File::Find::name;