Rather than list all of the CPAN dists in cpan/ not to index, make use of the fact that noindex is path based and just list cpan/

1 files changed, 1 insertions, 1 deletions

diff --git a/Porting/makemeta b/Porting/makemeta
index 167209ab6f..7e9eff776e 100644
--- a/Porting/makemeta
+++ b/Porting/makemeta
@@ -17,7 +17,7 @@ use Maintainers qw(%Modules get_module_files get_module_pat);
 
 my @CPAN  = grep { $Modules{$_}{CPAN} } keys %Modules;
 my @files = map { get_module_files($_) } @CPAN;
-my @dirs  = grep { -d $_ } map { get_module_pat($_) } @CPAN;
+my @dirs  = ('cpan', grep { -d $_ && $_  !~ /^cpan/ } map { get_module_pat($_) } @CPAN);
 
 my %dirs;
 @dirs{@dirs} = ();