From 5e03713652a5a31e165226d9e78b9e3ea09b0a1d Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 4 Dec 1998 06:06:49 +0000
Subject: tweak test for UTEST

p4raw-id: //depot/perl@2448
---
 t/op/tr.t | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 't/op/tr.t')

diff --git a/t/op/tr.t b/t/op/tr.t
index 3503c3cf12..486b4515d5 100755
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -22,12 +22,13 @@ print "ok 3\n";
 # In EBCDIC 'I' is \xc9 and 'J' is \0xd1, 'i' is \x89 and 'j' is \x91.
 # Yes, discontinuities.  Regardless, the \xca in the below should stay
 # untouched (and not became \x8a).
+{
+    no utf8;
+    $_ = "I\xcaJ";
 
-$_ = "I\xcaJ";
-
-tr/I-J/i-j/;
-
-print "not " unless $_ eq "i\xcaj";
-print "ok 4\n";
+    tr/I-J/i-j/;
 
+    print "not " unless $_ eq "i\xcaj";
+    print "ok 4\n";
+}
 #
-- 
cgit v1.2.1