The #4 has nothing to do with Unicode.

p4raw-id: //depot/perl@13494

diff --git a/t/op/tr.t b/t/op/tr.t
index 2f4e7de..b37eb7f 100755 (executable)
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -33,7 +33,7 @@ is($_, "aBCDEFGHIJKLMNOPQRSTUVWXYz",    'partial uc');
 
     tr/I-J/i-j/;
 
-    is($_, "i\xcaj",    'lc with unicode');
+    is($_, "i\xcaj",    'EBCDIC discontinuity');
 }
 #