diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-11-11 13:05:19 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-11-11 13:41:41 -0700 |
commit | ad0bff0e77747aa0f8ed3ded63adc50a799ef2ec (patch) | |
tree | 8989c180736309b89a12c3d810a0af54ef5093d6 /regexec.c | |
parent | c81f2f9ea8eb90e45572309066100520982bddbe (diff) | |
download | perl-ad0bff0e77747aa0f8ed3ded63adc50a799ef2ec.tar.gz |
regexec.c: Bypass unneeded step
We don't have to convert from utf8 to code point to fold; instead can
call the function that starts from utf8
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1200,8 +1200,8 @@ uvc, charid, foldlen, foldbuf, uniflags) STMT_START { \ uscan += len; \ len=0; \ } else { \ - uvc = utf8n_to_uvuni( (U8*)uc, UTF8_MAXLEN, &len, uniflags ); \ - uvc = to_uni_fold( uvc, foldbuf, &foldlen ); \ + uvc = to_utf8_fold( (U8 *) uc, foldbuf, &foldlen ); \ + len = UTF8SKIP(uc); \ foldlen -= UNISKIP( uvc ); \ uscan = foldbuf + UNISKIP( uvc ); \ } \ |