[perl #57016] debugger: o warn=0 die=0 ignored

[p5sagit/p5-mst-13.2.git] / Porting / corecpan.pl

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index 48fb7d9..0bf3913 100644 (file)
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -32,7 +32,7 @@ sub get_package_details () {
 
 getopts('fhv');
 our $opt_h and usage;
-our $opt_f or !-f $packagefile and get_package_details;
+our $opt_f || !-f $packagefile and get_package_details;
 
 # Load the package details. All of them.
 my %cpanversions;
@@ -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//;