This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Fixup Unicode 5.0 propvalue aliases for Blocks
authorKarl Williamson <khw@cpan.org>
Fri, 26 Jun 2015 18:14:12 +0000 (12:14 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 29 Jul 2015 04:15:54 +0000 (22:15 -0600)
These used an anomalous form in this release only.

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index 9964947..20c7688 100644 (file)
@@ -99521,7 +99521,7 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */
  * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
  * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
  * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
- * b2512ebf649f5d9fd1100f6e053801a4305acad72e79a0bc91c70ee3d1c19de6 lib/unicore/mktables
+ * 5ee717c7780feeb3f9fecc9f6ac2ebdcc07b0bb652b46d3743e5ab908a9fcb43 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * f199f92c0b5f87882b0198936ea8ef3dc43627b57a77ac3eb9250bd2664bbd88 regen/mk_invlists.pl
index caac329..568e5df 100644 (file)
@@ -9964,6 +9964,11 @@ END
         # thus shifting the former field 0 to after them.)
         splice (@data, 0, 0, splice(@data, 1, 2)) if $property eq 'ccc';
 
+        if ($v_version le v5.0.0 && $property eq 'blk' && $data[1] =~ /-/) {
+            my $new_style = $data[1] =~ s/-/_/gr;
+            splice @data, 1, 0, $new_style;
+        }
+
         # Field 0 is a short name unless "n/a"; field 1 is the full name.  If
         # there is no short name, use the full one in element 1
         if ($data[0] eq "n/a") {
index e02b884..b95edc9 100644 (file)
  * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
  * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
  * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
- * b2512ebf649f5d9fd1100f6e053801a4305acad72e79a0bc91c70ee3d1c19de6 lib/unicore/mktables
+ * 5ee717c7780feeb3f9fecc9f6ac2ebdcc07b0bb652b46d3743e5ab908a9fcb43 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * 8b29da548b7ad90659de234b5061a8c9fb0f40322a256d60fc5e9385ae4ece0e regen/regcharclass.pl