This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
several new tests needed tweaking to work under utf8
authorLarry Wall <larry@wall.org>
Sat, 5 Sep 1998 23:44:16 +0000 (23:44 +0000)
committerLarry Wall <larry@wall.org>
Sat, 5 Sep 1998 23:44:16 +0000 (23:44 +0000)
p4raw-id: //depot/perl@1780

t/comp/require.t
t/op/pack.t

index 203b996..4120bb1 100755 (executable)
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = ('.');
+    @INC = ('.', '../lib');
 }
 
 # don't make this lexical
 }
 
 # don't make this lexical
index 9b7bc35..725a0cb 100755 (executable)
@@ -160,7 +160,7 @@ foreach my $t (@templates) {
 
 # 57..60: uuencode/decode
 
 
 # 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';
 
 # just to be anal, we do some random tr/`/ /
 $uu = <<'EOUU';