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 /intrpvar.h | |
| 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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index 94253a2f67..f57fa7df62 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -626,7 +626,7 @@ PERLVAR(I, utf8_print, SV *) PERLVAR(I, utf8_punct, SV *) PERLVAR(I, utf8_xdigit, SV *) PERLVAR(I, utf8_mark, SV *) -PERLVAR(I, utf8_X_begin, SV *) +PERLVAR(I, utf8_X_regular_begin, SV *) PERLVAR(I, utf8_X_extend, SV *) PERLVAR(I, utf8_X_prepend, SV *) PERLVAR(I, utf8_X_special_begin, SV *) |