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 /intrpvar.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 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/intrpvar.h b/intrpvar.h index 1dfc6034ae..f7b6ee326e 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -753,10 +753,6 @@ PERLVAR(I, registered_mros, HV *) /* Compile-time block start/end hooks */ PERLVAR(I, blockhooks, AV *) -/* Everything that folds to a given character, for case insensitivity regex - * matching */ -PERLVARI(I, utf8_foldclosures, HV *, NULL) - PERLVAR(I, custom_ops, HV *) /* custom op registrations */ PERLVAR(I, Xpv, XPV *) /* (unused) held temporary value */ |