diff options
| author | Karl Williamson <khw@cpan.org> | 2018-03-29 16:32:49 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-03-31 15:36:46 -0600 |
| commit | b74fe592196bcf9f41b2e13d774c2c6513a650df (patch) | |
| tree | 9f90d065de465962410e8f0c88529939b7ce22a7 /perlvars.h | |
| parent | d2aadf62cbb988487f162551df71b8a36cb54fb6 (diff) | |
| download | perl-b74fe592196bcf9f41b2e13d774c2c6513a650df.tar.gz | |
Use compiled-in C structure for inverted case folds
This commit changes to use the C data structures generated by the
previous commit to compute what characters fold to a given one. This is
used to find out what things should match under /i.
This now avoids the expensive start up cost of switching to perl
utf8_heavy.pl, loading a file from disk, and constructing a hash from
it.
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perlvars.h b/perlvars.h index af48fa8266..b6cc9ca162 100644 --- a/perlvars.h +++ b/perlvars.h @@ -302,3 +302,7 @@ PERLVAR(G, utf8_tofold, SV *) PERLVAR(G, utf8_tosimplefold, SV *) PERLVAR(G, utf8_charname_begin, SV *) PERLVAR(G, utf8_charname_continue, SV *) + +/* Everything that folds to a given character, for case insensitivity regex + * matching */ +PERLVAR(G, utf8_foldclosures, SV *) |