diff options
| author | Karl Williamson <khw@cpan.org> | 2015-02-17 15:03:32 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-02-19 22:55:01 -0700 |
| commit | 64935bc6975bb01af403817752e88d6540c8711d (patch) | |
| tree | 6a1619ac46d1501a5b296a2b69d9af0b98db8c58 /intrpvar.h | |
| parent | 0e0b935601a8b7a2c56653412a94a36f986bc34f (diff) | |
| download | perl-64935bc6975bb01af403817752e88d6540c8711d.tar.gz | |
Add qr/\b{gcb}/
A function implements seeing if the space between any two characters is
a grapheme cluster break. Afer I wrote this, I realized that an array
lookup might be a better implementation, but the deadline for v5.22 was
too close to change it. I did see that my gcc optimized it down to
an array lookup.
This makes the implementation of \X go from being complicated to
trivial.
Diffstat (limited to 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index b88f6dfb0b..dc44b31cd7 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -610,6 +610,7 @@ PERLVAR(I, utf8_charname_continue, SV *) PERLVARA(I, utf8_swash_ptrs, POSIX_SWASH_COUNT, SV *) PERLVARA(I, Posix_ptrs, POSIX_CC_COUNT, SV *) PERLVARA(I, XPosix_ptrs, POSIX_CC_COUNT, SV *) +PERLVAR(I, GCB_invlist, SV *) PERLVAR(I, last_swash_hv, HV *) PERLVAR(I, last_swash_tmps, U8 *) |