diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-25 20:00:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-25 20:00:48 +0000 |
| commit | dcad28805702d580064bc39a267d63c58bbb3b3f (patch) | |
| tree | c59311ffbadd7bc18b3b7bcc1b2158652051f134 /regcomp.c | |
| parent | fcc8fcf67e5ea5f08178c9ac86509bc972ef38ff (diff) | |
| download | perl-dcad28805702d580064bc39a267d63c58bbb3b3f.tar.gz | |
Continue the internal UTF-8 API tweaking.
Rename utf8_to_uv_chk() back to utf8_to_uv() because it's
used much more than the simpler API, now called utf8_to_uv_simple().
Still not quite happy with API, too much partial duplication
of functionality.
p4raw-id: //depot/perl@7439
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2884,7 +2884,7 @@ tryagain: default: normal_default: if ((*p & 0xc0) == 0xc0 && UTF) { - ender = utf8_to_uv_chk((U8*)p, PL_regxend - p, + ender = utf8_to_uv((U8*)p, PL_regxend - p, &numlen, 0); p += numlen; } @@ -3639,14 +3639,14 @@ S_regclassutf8(pTHX) namedclass = OOB_NAMEDCLASS; if (!range) rangebegin = PL_regcomp_parse; - value = utf8_to_uv_chk((U8*)PL_regcomp_parse, + value = utf8_to_uv((U8*)PL_regcomp_parse, PL_regxend - PL_regcomp_parse, &numlen, 0); PL_regcomp_parse += numlen; if (value == '[') namedclass = regpposixcc(value); else if (value == '\\') { - value = (U32)utf8_to_uv_chk((U8*)PL_regcomp_parse, + value = (U32)utf8_to_uv((U8*)PL_regcomp_parse, PL_regxend - PL_regcomp_parse, &numlen, 0); PL_regcomp_parse += numlen; |