diff options
| author | Karl Williamson <khw@cpan.org> | 2015-06-27 15:19:52 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-07-28 22:15:55 -0600 |
| commit | 347b906652b6f7e1c8073a6211d73167f1b1e580 (patch) | |
| tree | 3503990efdd9838d859a2dbd943e70fa11f54d11 /regen | |
| parent | 18b852b30ba40f63cf29d368bd82883f06faf085 (diff) | |
| download | perl-347b906652b6f7e1c8073a6211d73167f1b1e580.tar.gz | |
regen/mk_invlists.pl: Handle early Unicodes CF
In very early Unicode releases, the case folding table can be in a
different format.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_invlists.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 565280e79f..3c7e42cbc5 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -352,7 +352,8 @@ sub mk_invlist_from_sorted_cp_list { 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" - unless $format eq 'al'; + unless $format eq 'al' + || $format eq 'a'; my @has_multi_char_fold; my @is_non_final_fold; |