VMS test.com running in wrong order?

Message-Id: <20011108220549.F5587@blackrider>

p4raw-id: //depot/perl@12914

diff --git a/vms/test.com b/vms/test.com
index 372ed74..e2b9503 100644 (file)
--- a/vms/test.com
+++ b/vms/test.com
@@ -144,7 +144,7 @@ if (lc($ARGV[0]) eq '-v') {
 chdir 't' if -f 't/TEST';
 
 if ($ARGV[0] eq '') {
-    foreach (<[-.ext...]*.t>, <[-.lib...]*.t>, <[.*]*.t>) {
+    foreach (<[.*]*.t>, <[-.ext...]*.t>, <[-.lib...]*.t>) {
       $_ = File::Spec->abs2rel($_);
       s/\[([a-z]+)/[.$1/;      # hmm, abs2rel doesn't do subdirs of the cwd
       ($fname = $_) =~ s/.*\]//;