diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:31:19 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-11-13 19:31:19 +0000 |
| commit | 091c0eb7afda954d4b458ffef52b90ee0ff8afe5 (patch) | |
| tree | b383f52ecdb35f8cea6a48c5fb89fc7940fbaada /t/pragma | |
| parent | ba973abb2167d22cf71ef30581193c3aaa1d885d (diff) | |
| download | perl-091c0eb7afda954d4b458ffef52b90ee0ff8afe5.tar.gz | |
revert non-kosher parts of change#4562 (sort order problems
should be ignored (on ebcdic) by fixing dumper.t/T() to sort
result and expected lines; /[:ascii:]/ not working should be
fixed, not ignored in regexp.t; result from sort should be
fixed to be ascii portable on ebcdic, not ebcdic-specific)
p4raw-link: @4562 on //depot/cfgperl: ee50adbe6978769b1ad873bd2be52593b054ff83
p4raw-id: //depot/perl@4574
Diffstat (limited to 't/pragma')
| -rwxr-xr-x | t/pragma/overload.t | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/t/pragma/overload.t b/t/pragma/overload.t index f9a9c59c87..f673dce028 100755 --- a/t/pragma/overload.t +++ b/t/pragma/overload.t @@ -759,12 +759,7 @@ else { }, 'deref'; # Hash: my @cont = sort %$deref; - if ("\t" eq "\011") { # ascii - test "@cont", '23 5 fake foo'; # 178 - } - else { # ebcdic alpha-numeric sort order - test "@cont", 'fake foo 23 5'; # 178 - } + test "@cont", '23 5 fake foo'; # 178 my @keys = sort keys %$deref; test "@keys", 'fake foo'; # 179 my @val = sort values %$deref; |