diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 1999-11-10 06:34:36 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-13 16:53:00 +0000 |
| commit | ee50adbe6978769b1ad873bd2be52593b054ff83 (patch) | |
| tree | 8dc460f5d97a313200ebfe6ae0647d7fdd227aa6 /t/pragma/overload.t | |
| parent | 8bc9d5905854a266b70e2103e09a997741ac5d52 (diff) | |
| download | perl-ee50adbe6978769b1ad873bd2be52593b054ff83.tar.gz | |
was Re: [ID 19991102.003] perl on os390
To: gsar@activestate.com, perl-mvs@perl.org, perlbug@perl.com
Message-Id: <199911102234.OAA01018@brio.forte.com>
p4raw-id: //depot/cfgperl@4562
Diffstat (limited to 't/pragma/overload.t')
| -rwxr-xr-x | t/pragma/overload.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/pragma/overload.t b/t/pragma/overload.t index f673dce028..f9a9c59c87 100755 --- a/t/pragma/overload.t +++ b/t/pragma/overload.t @@ -759,7 +759,12 @@ else { }, 'deref'; # Hash: my @cont = sort %$deref; - test "@cont", '23 5 fake foo'; # 178 + 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 + } my @keys = sort keys %$deref; test "@keys", 'fake foo'; # 179 my @val = sort values %$deref; |