diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-01 14:50:24 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-09-01 14:50:24 +0000 |
| commit | 04cd59d6b048a525c3fb8126184bf470c6ae713e (patch) | |
| tree | a20066aeacdefe9851c791b56885561e9beb525b /Porting/corecpan.pl | |
| parent | 468aa647417bbcdb0729a787fa25968401364880 (diff) | |
| download | perl-04cd59d6b048a525c3fb8126184bf470c6ae713e.tar.gz | |
Don't list test modules when listing cpan versions
p4raw-id: //depot/perl@25345
Diffstat (limited to 'Porting/corecpan.pl')
| -rw-r--r-- | Porting/corecpan.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl index 48fb7d92ba..1327483f1d 100644 --- 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//; |