From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 12 May 2001 13:39:43 +0000 (+0000)
Subject: The sorting seems to happen now automatically.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89f4ed55a43fb3d138590bf493af44a17e75382f;p=p5sagit%2Fp5-mst-13.2.git

The sorting seems to happen now automatically.

p4raw-id: //depot/perl@10090
---

diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index fda0f72..6c12c26 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -138,9 +138,8 @@ chdir "pteerslt";
 @f_alpha = qw(Ax.pl aY.pl Bx.pl bY.pl Cx.pl cY.pl);
 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') {
+if ($^O eq 'VMS') { # VMS is happily caseignorant
     @f_alpha = qw(ax.pl ay.pl bx.pl by.pl cx.pl cy.pl);
     @f_names = @f_alpha;
 }