the real fix for t/lib/b-stash.t

[p5sagit/p5-mst-13.2.git] / t / lib / glob-basic.t

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index 170237f..fda0f72 100755 (executable)
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -140,6 +140,10 @@ if ('a' lt 'A') { # EBCDIC char sets sort lower case before UPPER
     @f_names = sort(@f_names);
     @f_alpha = qw(aY.pl Ax.pl bY.pl Bx.pl cY.pl Cx.pl);
 }
+if ($^O eq 'VMS') {
+    @f_alpha = qw(ax.pl ay.pl bx.pl by.pl cx.pl cy.pl);
+    @f_names = @f_alpha;
+}
 
 for (@f_names) {
     open T, "> $_";