diff options
| author | Larry Wall <larry@wall.org> | 1998-09-05 23:44:16 +0000 |
|---|---|---|
| committer | Larry Wall <larry@wall.org> | 1998-09-05 23:44:16 +0000 |
| commit | 342930fbe48873e4ee7fdf12f4ea00e063c13bb8 (patch) | |
| tree | 2da60899b7e998b9ccd7f8e9ae851f37f38fa149 | |
| parent | 0b71040ecef552254b590fe9935cf4942b087ec2 (diff) | |
| download | perl-342930fbe48873e4ee7fdf12f4ea00e063c13bb8.tar.gz | |
several new tests needed tweaking to work under utf8
p4raw-id: //depot/perl@1780
| -rwxr-xr-x | t/comp/require.t | 2 | ||||
| -rwxr-xr-x | t/op/pack.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/comp/require.t b/t/comp/require.t index 203b996e06..4120bb1ea5 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 9b7bc351f9..725a0cb87f 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'; |