diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-08-28 15:25:48 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-08-28 16:24:47 -0600 |
| commit | 27d4fc33343f0dd4287f0e7b9e6b4ff67c5d8399 (patch) | |
| tree | f9b098ce06e0da7f0285f9b34c59edd1dec2168a /sv.c | |
| parent | 9914684df30835d5561d6d2a768b82e5d8cb535b (diff) | |
| download | perl-27d4fc33343f0dd4287f0e7b9e6b4ff67c5d8399.tar.gz | |
Refactor \X regex handling to avoid a typical case table lookup
Prior to this commit 98.4% of Unicode code points that went through \X
had to be looked up to see if they begin a grapheme cluster; then looked
up again to find that they didn't require special handling. This commit
refactors things so only one look-up is required for those 98.4%. It
changes the table generated by mktables to accomplish this, and hence
the name of it, and references to it are changed to correspond.
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -13364,7 +13364,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_utf8_punct = sv_dup_inc(proto_perl->Iutf8_punct, param); PL_utf8_xdigit = sv_dup_inc(proto_perl->Iutf8_xdigit, param); PL_utf8_mark = sv_dup_inc(proto_perl->Iutf8_mark, param); - PL_utf8_X_begin = sv_dup_inc(proto_perl->Iutf8_X_begin, param); + PL_utf8_X_regular_begin = sv_dup_inc(proto_perl->Iutf8_X_regular_begin, param); PL_utf8_X_extend = sv_dup_inc(proto_perl->Iutf8_X_extend, param); PL_utf8_X_prepend = sv_dup_inc(proto_perl->Iutf8_X_prepend, param); PL_utf8_X_special_begin = sv_dup_inc(proto_perl->Iutf8_X_special_begin, param); |