Don't need to do the globbing before building the rules, as it makes

the rules larger than necessary, and potentially slows things down.

p4raw-id: //depot/perl@34191

diff --git a/t/harness b/t/harness
index 41e895a..a701fc7 100644 (file)
--- a/t/harness
+++ b/t/harness
@@ -130,7 +130,7 @@ if (@ARGV) {
        push @next, 'japh' if $torture;
        push @next, 'win32' if $^O eq 'MSWin32';
        push @seq, { par => [
-                            map { glob "$_/*.t" } @next
+                            map { "$_/*.t" } @next
                            ] };
 
        my @last;