This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regen/mk_invlists.pl: Handle early Unicodes CF
authorKarl Williamson <khw@cpan.org>
Sat, 27 Jun 2015 21:19:52 +0000 (15:19 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 29 Jul 2015 04:15:55 +0000 (22:15 -0600)
In very early Unicode releases, the case folding table can be in a
different format.

charclass_invlists.h
regen/mk_invlists.pl

index c1b0c9b..8f21b01 100644 (file)
@@ -99524,5 +99524,5 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */
  * 668579029ac0720853bf19781ec10ec922495271543c91531d7a6db3fcdffba9 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
- * ab4edd10b64281af105cb74042c8f2ac8277e8b78ce24cd58c05e7259cfd9f50 regen/mk_invlists.pl
+ * 7b6f61662df48e0cbfb234a926e02e5cb9468af052f7f9feb84285996f30df09 regen/mk_invlists.pl
  * ex: set ro: */
index 565280e..3c7e42c 100644 (file)
@@ -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;