This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS test.com running in wrong order?
authorMichael G. Schwern <schwern@pobox.com>
Thu, 8 Nov 2001 22:05:49 +0000 (17:05 -0500)
committerAbhijit Menon-Sen <ams@wiw.org>
Fri, 9 Nov 2001 14:05:12 +0000 (14:05 +0000)
Message-Id: <20011108220549.F5587@blackrider>

p4raw-id: //depot/perl@12914

vms/test.com

index 372ed74..e2b9503 100644 (file)
@@ -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/.*\]//;