more ebcdic testsuite fixups (from Peter Prymmer)

p4raw-id: //depot/perl@4723

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;