From d41ff1b8ad987cfcb928deba4254681c1a4c0e36 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 31 Jan 2000 20:19:34 +0000
Subject: introduce $^U, a global bit to indicate whether system calls should
 using widechar APIs; chr and sprintf "%c" also follow this flag in the
 absense of "use byte"; "use utf8" sets $^U=1 (this appears kludgey)

p4raw-id: //depot/perl@4937
---
 t/lib/charnames.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't/lib')

diff --git a/t/lib/charnames.t b/t/lib/charnames.t
index 9775b141b2..84949896ac 100644
--- a/t/lib/charnames.t
+++ b/t/lib/charnames.t
@@ -16,7 +16,7 @@ print "not " unless "Here\N{EXCLAMATION MARK}?" eq "Here\041?";
 print "ok 1\n";
 
 {
-  no utf8;			# UTEST can switch it on
+  use byte;			# UTEST can switch utf8 on
 
   print "# \$res=$res \$\@='$@'\nnot "
     if $res = eval <<'EOE'
-- 
cgit v1.2.1