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 /toke.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 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -816,7 +816,7 @@ Perl_str_to_version(pTHX_ SV *sv) STRLEN skip; UV n; if (utf) - n = utf8_to_uv_chk((U8*)start, len, &skip, 0); + n = utf8_to_uv((U8*)start, len, &skip, 0); else { n = *(U8*)start; skip = 1; @@ -1331,7 +1331,7 @@ S_scan_const(pTHX_ char *start) STRLEN len; UV uv; - uv = utf8_to_uv_chk((U8*)s, send - s, &len, UTF8_CHECK_ONLY); + uv = utf8_to_uv((U8*)s, send - s, &len, UTF8_CHECK_ONLY); if (len == 1) { /* Illegal UTF8 (a high-bit byte), make it valid. */ char *old_pvx = SvPVX(sv); |