1 files changed, 12 insertions, 6 deletions
diff --git a/contrib/perl5/t/op/tr.t b/contrib/perl5/t/op/tr.t
index 3503c3c..4e6667c 100755
--- a/contrib/perl5/t/op/tr.t
+++ b/contrib/perl5/t/op/tr.t
@@ -1,5 +1,10 @@
 # tr.t
 
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, "../lib";
+}
+
 print "1..4\n";
 
 $_ = "abcdefghijklmnopqrstuvwxyz";
@@ -22,12 +27,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";
+}
 #