This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
As rules can be glob patterns, leave them as glob patterns, and instead
authorNicholas Clark <nick@ccl4.org>
Thu, 7 Aug 2008 08:11:39 +0000 (08:11 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 7 Aug 2008 08:11:39 +0000 (08:11 +0000)
expand the globs when we walk the rules to create the full list of
tests. Tests run more quickly.

p4raw-id: //depot/perl@34177

t/harness

index bcf6809..717fe24 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -60,7 +60,7 @@ sub _glob_and_parallelise {
     # Run the tests in each of these directories in sequence, but the
     # directories themselves can be parallelised.
     foreach (@_) {
     # Run the tests in each of these directories in sequence, but the
     # directories themselves can be parallelised.
     foreach (@_) {
-       push @dirs, { seq => [ glob "$_/*.t" ] };
+       push @dirs, { seq => "$_/*.t" };
     }
     { par =>  \@dirs };
 }
     }
     { par =>  \@dirs };
 }
@@ -94,7 +94,7 @@ sub _extract_tests {
                die "Unknown reference type $ref";
            }
        } else {
                die "Unknown reference type $ref";
            }
        } else {
-           push @results, $_;
+           push @results, glob $_;
        }
     }
     @results;
        }
     }
     @results;