diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-04-28 18:38:24 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-05-22 08:24:18 -0600 |
| commit | 28936164408fd41cfaa353665e07fdb257254b20 (patch) | |
| tree | 2f1507e368e61c34b7a8c75ab6639d4be7a5ea9d /pp.c | |
| parent | a4f7a67c079118a2f900d5f95d3cada67e3475ea (diff) | |
| download | perl-28936164408fd41cfaa353665e07fdb257254b20.tar.gz | |
utf8.h, pp.c: Add UTF8_IS_REPLACEMENT macro, and use it
This should speed things up slightly, as it looks directly at the UTF-8
source, instead of having to decode it first.
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -3382,8 +3382,10 @@ PP(pp_chr) if (PL_encoding && !IN_BYTES) { sv_recode_to_utf8(TARG, PL_encoding); tmps = SvPVX(TARG); - if (SvCUR(TARG) == 0 || !is_utf8_string((U8*)tmps, SvCUR(TARG)) || - UNICODE_IS_REPLACEMENT(utf8_to_uvchr_buf((U8*)tmps, (U8*) tmps + SvCUR(TARG), NULL))) { + if (SvCUR(TARG) == 0 + || ! is_utf8_string((U8*)tmps, SvCUR(TARG)) + || UTF8_IS_REPLACEMENT((U8*) tmps, (U8*) tmps + SvCUR(TARG))) + { SvGROW(TARG, 2); tmps = SvPVX(TARG); SvCUR_set(TARG, 1); |