From: Larry Wall <larry@wall.org>
Date: Sat, 5 Sep 1998 23:44:16 +0000 (+0000)
Subject: several new tests needed tweaking to work under utf8
X-Git-Tag: accepted/trunk/20130322.191538~37160
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=342930fbe48873e4ee7fdf12f4ea00e063c13bb8;p=platform%2Fupstream%2Fperl.git

several new tests needed tweaking to work under utf8

p4raw-id: //depot/perl@1780
---

diff --git a/t/comp/require.t b/t/comp/require.t
index 203b996..4120bb1 100755
--- a/t/comp/require.t
+++ b/t/comp/require.t
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('.');
+    @INC = ('.', '../lib');
 }
 
 # don't make this lexical
diff --git a/t/op/pack.t b/t/op/pack.t
index 9b7bc35..725a0cb 100755
--- a/t/op/pack.t
+++ b/t/op/pack.t
@@ -160,7 +160,7 @@ foreach my $t (@templates) {
 
 # 57..60: uuencode/decode
 
-$in = join "", map { chr } 0..255;
+$in = pack 'C*', 0 .. 255;
 
 # just to be anal, we do some random tr/`/ /
 $uu = <<'EOUU';