From 67a178859ea493069d4cd219558dd36971d6e520 Mon Sep 17 00:00:00 2001
From: Peter Prymmer <PPrymmer@factset.com>
Date: Tue, 10 Oct 2000 06:56:35 -0700
Subject: [PATCH] op/tr tests on OS/390 Message-ID:
 <Pine.OSF.4.10.10010101355140.441897-100000@aspara.forte.com>

p4raw-id: //depot/perl@7193
---
 t/op/tr.t | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/t/op/tr.t b/t/op/tr.t
index a6406ff..d86a77d 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -59,11 +59,18 @@ print "ok 6\n";
 print "not " if $x ne 256.65.258 or length $x != 3;
 print "ok 7\n";
 $x =~ tr/A/B/;
-print "not " if $x ne 256.66.258 or length $x != 3;
+if (ord("\t") == 9) { # ASCII
+    print "not " if $x ne 256.66.258 or length $x != 3;
+}
+else {
+    print "not " if $x ne 256.65.258 or length $x != 3;
+}
 print "ok 8\n";
 
 {
-use utf8;
+if (ord("\t") == 9) { # ASCII
+    use utf8;
+}
 
 # 9 - changing UTF8 characters in a UTF8 string, same length.
 $l = chr(300); $r = chr(400);
-- 
2.7.4