diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-12 13:39:43 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-12 13:39:43 +0000 |
| commit | 89f4ed55a43fb3d138590bf493af44a17e75382f (patch) | |
| tree | d01b9e7654410ecb2d02270769883de5310dad60 /t | |
| parent | e833de1e92fbc1dd83d6239be4b7391e4fa4f8ce (diff) | |
| download | perl-89f4ed55a43fb3d138590bf493af44a17e75382f.tar.gz | |
The sorting seems to happen now automatically.
p4raw-id: //depot/perl@10090
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/glob-basic.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t index fda0f721e8..6c12c2624c 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; } |