summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-05-31 00:16:44 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-31 00:16:44 +0000
commit0064a8a9866779dceb087452b9bfaa733c51adce (patch)
tree3fdfd380d1e3b371bed489f787cf1c3a69e22234 /pp.c
parent9c5ffd7c3fe1ab64d3e7d06810ac3ab42426718b (diff)
downloadperl-0064a8a9866779dceb087452b9bfaa733c51adce.tar.gz
Salvage bits and pieces from the experimental 'utf8 everywhere'
patch: rename HINT_BYTE and IN_BYTE to HINT_BYTES and IN_BYTES to match the pragma name; various robustness cleanups. p4raw-id: //depot/perl@10339
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 4bb8d3e377..6328a6cbd5 100644
--- a/pp.c
+++ b/pp.c
@@ -3001,7 +3001,7 @@ PP(pp_chr)
(void)SvUPGRADE(TARG,SVt_PV);
- if (value > 255 && !IN_BYTE) {
+ if (value > 255 && !IN_BYTES) {
SvGROW(TARG, UNISKIP(value)+1);
tmps = (char*)uvchr_to_utf8((U8*)SvPVX(TARG), value);
SvCUR_set(TARG, tmps - SvPVX(TARG));