diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-04 10:42:28 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-04 10:59:40 -0700 |
| commit | 88c8c9616516015e2fe0b502cdb92dc4efcc0c10 (patch) | |
| tree | 400a31f791adceef3b2023fe99c107f626c5b4ba /regen/mk_PL_charclass.pl | |
| parent | 04c692a854b61dfae1266e29468ce4fb51c80512 (diff) | |
| download | perl-88c8c9616516015e2fe0b502cdb92dc4efcc0c10.tar.gz | |
l1_char_class_tab.h: Remove multi-char fold targets
These are not currently used, and slow things down, as regular
expressions that have them, such as /[Etl]/i now have to go out and load
utf8 code. This remains the case, though, for bracketed character
classes that include [KkSs].
Diffstat (limited to 'regen/mk_PL_charclass.pl')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index 5b2cca70f1..b616f85748 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -71,7 +71,7 @@ while (<$fh>) { my $from = hex $hex_from; # Perl only deals with C and F folds - next if $fold_type ne 'C' and $fold_type ne 'F'; + next if $fold_type ne 'C'; # Not currently used: && $fold_type ne 'F'; # Get each code point in the range that participates in this line's fold. # The hash has keys of each code point in the range, and values of what it |