diff options
| author | Karl Williamson <khw@cpan.org> | 2015-06-21 21:38:32 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-07-28 22:15:53 -0600 |
| commit | 9b63e895ee43cb3717f72cde64f6a658b1b46dd7 (patch) | |
| tree | bf381dfa72b0e8c5bd5c89b393f635405b0189a6 /regen | |
| parent | ce6e23cf44eba8e2f28aeef6eafc77ef073a33a9 (diff) | |
| download | perl-9b63e895ee43cb3717f72cde64f6a658b1b46dd7.tar.gz | |
There are no folds to multiple chars in early Unicode versions
Several places require special handling because of this, notably for the
lowercase Sharp S, but not in Unicodes before 3.0.1
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/regcharclass_multi_char_folds.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/regen/regcharclass_multi_char_folds.pl b/regen/regcharclass_multi_char_folds.pl index dfc8f9f3e5..5ea9d33a25 100644 --- a/regen/regcharclass_multi_char_folds.pl +++ b/regen/regcharclass_multi_char_folds.pl @@ -63,6 +63,8 @@ sub multi_char_folds ($) { # multi-char folds; false if just the ones that # are all ascii + return () if pack("C*", split /\./, Unicode::UCD::UnicodeVersion()) lt v3.0.1; + my ($cp_ref, $folds_ref, $format) = prop_invmap("Case_Folding"); die "Could not find inversion map for Case_Folding" unless defined $format; die "Incorrect format '$format' for Case_Folding inversion map" |