diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-09-28 15:03:57 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-10-01 09:58:10 -0600 |
| commit | 7049214e3eea022e77794ed9b9d9038f93695ef9 (patch) | |
| tree | 2a2bfb5c3cb22557096b7b93689b1416d63507b0 /handy.h | |
| parent | b289b443840217f6eabfcc3ae622f08f4ef76487 (diff) | |
| download | perl-7049214e3eea022e77794ed9b9d9038f93695ef9.tar.gz | |
handy.h: Speed up isIDFIRST_utf8()
This now takes advantage of the new table that mktables generates
to find out if a character is a legal start character in Perl's
definition. Previously, it had to be looked up in two tables.
Diffstat (limited to 'handy.h')
| -rw-r--r-- | handy.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -934,7 +934,7 @@ EXTCONST U32 PL_charclass[]; : (UTF8_IS_DOWNGRADEABLE_START(*(p))) \ ? isIDFIRST_L1(TWO_BYTE_UTF8_TO_UNI(*(p), \ *((p)+1)))\ - : (is_utf8_xidfirst(p) && is_utf8_alnum(p))) + : _is_utf8__perl_idstart(p)) #define isIDCONT_utf8(p) generic_utf8(isWORDCHAR, is_utf8_xidcont, p) #define isALPHA_utf8(p) generic_utf8(isALPHA, is_utf8_alpha, p) #define isSPACE_utf8(p) generic_utf8(isSPACE, is_utf8_space, p) |