From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 1 Sep 2005 14:50:24 +0000 (+0000)
Subject: Don't list test modules when listing cpan versions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=04cd59d6b048a525c3fb8126184bf470c6ae713e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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//;