From ee50adbe6978769b1ad873bd2be52593b054ff83 Mon Sep 17 00:00:00 2001 From: Peter Prymmer Date: Wed, 10 Nov 1999 06:34:36 -0800 Subject: 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 --- t/pragma/overload.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 't/pragma/overload.t') 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; -- cgit v1.2.1