mark test modules (found in ext/*/t/) as no_index

fixes #18632

1 files changed, 5 insertions, 1 deletions

diff --git a/Porting/makemeta b/Porting/makemeta
index ca1a500d83..1cd68e3287 100644
--- a/Porting/makemeta
+++ b/Porting/makemeta
@@ -84,6 +84,7 @@ my $distmeta = {
 use lib "Porting";
 use File::Basename qw( dirname );
 use CPAN::Meta;
+use File::Spec;
 
 BEGIN {
     # Get function prototypes
@@ -96,7 +97,10 @@ my @CPAN  = grep { $Modules{$_}{CPAN} } keys %Modules;
 my @files = ('autodoc.pl', 'lib/unicore/mktables', 'TestInit.pm',
              'Porting/Maintainers.pm', 'Porting/perldelta_template.pod',
              map { get_module_files($_) } @CPAN);
-my @dirs  = ('cpan', 'win32', 'lib/perl5db', grep { -d $_ && $_  !~ /^cpan/ } map { get_module_pat($_) } @CPAN);
+my @extt = map { my $t = File::Spec->catdir($_, "t");
+                 -d $t ? ( $_ . "t" ) : () }
+  grep { /^ext\b/ } split ' ', $Modules{_PERLLIB}{FILES};
+my @dirs  = ('cpan', 'win32', 'lib/perl5db', @extt, grep { -d $_ && $_  !~ /^cpan/ } map { get_module_pat($_) } @CPAN);
 
 my %dirs;
 @dirs{@dirs} = ();