Don't list test modules when listing cpan versions

p4raw-id: //depot/perl@25345

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index 48fb7d9..1327483 100644 (file)
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -47,7 +47,7 @@ for my $dist (sort keys %Modules) {
     next unless $Modules{$dist}{CPAN};
     print "Module $dist...\n";
     for my $file (get_module_files($dist)) {
-       next if $file !~ /\.pm\z/ or $file =~ m{^t/};
+       next if $file !~ /\.pm\z/ or $file =~ m{^t/} or $file =~ m{/t/};
        my $vcore = MM->parse_version($file) // 'undef';
        my $module = $file;
        $module =~ s/\.pm\z//;