This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Canonicalize '-' into '_'
authorKarl Williamson <khw@cpan.org>
Sat, 23 Dec 2017 21:37:37 +0000 (14:37 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Dec 2017 00:12:03 +0000 (17:12 -0700)
Some early Unicode releases used a hyphen instead of an underscore in
script names.  This changes all into underscores

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index 00628f5..7530259 100644 (file)
@@ -97430,7 +97430,7 @@ static const U8 WB_table[24][24] = {
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * 4d296f9555c2df469eb9629c7cd53b3bf5d10331baa88087d8451966f1563865 lib/unicore/mktables
+ * 850e28e9ceab3cd75bab215575ab8beb7cca61b32b989b725ed55d51991394ad lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 520051ffc8f534c956ec809456efdd79ba9708933c5f009f823e92b4eeb7a163 regen/mk_invlists.pl
index 57c2e43..8877535 100644 (file)
@@ -13655,7 +13655,7 @@ sub filter_all_caps_script_names {
 
     my ($range, $script, @remainder)
         = split /\s*;\s*/, $_, -1; # -1 => retain trailing null fields
-    my @words = split "_", $script;
+    my @words = split /[_-]/, $script;
     for my $word (@words) {
         $word =
             ucfirst(lc($word)) if $word ne 'CJK';
index 3ac198c..665b190 100644 (file)
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * 4d296f9555c2df469eb9629c7cd53b3bf5d10331baa88087d8451966f1563865 lib/unicore/mktables
+ * 850e28e9ceab3cd75bab215575ab8beb7cca61b32b989b725ed55d51991394ad lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
  * 9ea6338945a7d70e5ea4b31ac7856c0b521df96be002e94b4b3b7d31debbf3ab regen/regcharclass.pl