diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-31 20:19:34 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-01-31 20:19:34 +0000 |
| commit | d41ff1b8ad987cfcb928deba4254681c1a4c0e36 (patch) | |
| tree | 1fe5e3007d4c0adad93b501f54394bf383983d52 /t/lib | |
| parent | 426c1a18afb84430666a6b4f0111dbc3205bd349 (diff) | |
| download | perl-d41ff1b8ad987cfcb928deba4254681c1a4c0e36.tar.gz | |
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
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/charnames.t | 2 |
1 files changed, 1 insertions, 1 deletions
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' |