summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-04-02 20:35:13 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-04-02 20:35:13 +0000
commit872c91ae155f6880f8bf2b15c143bda5279a5794 (patch)
tree663505dbece632b3e75b0158fb36720c2d54829f /pp.c
parentb929be1d26aeff4c8c3d4bbd655731a23247ecc8 (diff)
downloadperl-872c91ae155f6880f8bf2b15c143bda5279a5794.tar.gz
What started as a small nit (the charnames test, nit found
be Hugo), ballooned a bit... the goal is Larry's wish that illegal Unicode (such as U+FFFF) by default doesn't warn, since what if somebody WANTS to create illegal Unicode? Now getting close to this in the regex runtime. (Also, fix more of my fixation that BOM would be U+FFFE.) p4raw-id: //depot/perl@15689
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 757b4f0984..fbe4737497 100644
--- a/pp.c
+++ b/pp.c
@@ -3241,7 +3241,9 @@ PP(pp_ord)
argsv = tmpsv;
}
- XPUSHu(DO_UTF8(argsv) ? utf8_to_uvchr(s, 0) : (*s & 0xff));
+ XPUSHu(DO_UTF8(argsv) ?
+ utf8n_to_uvchr(s, UTF8_MAXLEN, 0, UTF8_ALLOW_ANYUV) :
+ (*s & 0xff));
RETURN;
}