summaryrefslogtreecommitdiff
path: root/t/io
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-05-28 16:58:11 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-28 16:58:11 +0000
commit3ba0e062b0fe667e151870a45d4ee2ea831cfb50 (patch)
treef6b4faaa4299b13bf5222e030e8d0f9dc82d7cf0 /t/io
parent1115139db3eaa371c914ed4ef12a3a4846e77705 (diff)
downloadperl-3ba0e062b0fe667e151870a45d4ee2ea831cfb50.tar.gz
Various buglets shaken out by -Mutf8.
p4raw-id: //depot/perl@10260
Diffstat (limited to 't/io')
-rwxr-xr-xt/io/utf8.t2
1 files changed, 2 insertions, 0 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t
index ac5cde7a6e..fee0fe6ace 100755
--- a/t/io/utf8.t
+++ b/t/io/utf8.t
@@ -9,6 +9,8 @@ BEGIN {
}
}
+no utf8; # so that the naked 8-bit chars won't gripe under use utf8
+
$| = 1;
my $total_tests = 25;
if (ord('A') == 193) { $total_tests = 24; } # EBCDIC platforms do not warn on UTF-8