This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Add true/false aliases in early Unicodes
authorKarl Williamson <khw@cpan.org>
Fri, 26 Jun 2015 18:12:16 +0000 (12:12 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 29 Jul 2015 04:15:54 +0000 (22:15 -0600)
Before Unicode 5.0, the aliases for True and False were just assumed,
and not specifically mentioned.  This commit adds them for those early
releases.

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index ca01032..9964947 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
- * 571e444a844d3c9bbea922442d675b686aa453b65a3a71235e95982cd1aa5e61 lib/unicore/mktables
+ * b2512ebf649f5d9fd1100f6e053801a4305acad72e79a0bc91c70ee3d1c19de6 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * f199f92c0b5f87882b0198936ea8ef3dc43627b57a77ac3eb9250bd2664bbd88 regen/mk_invlists.pl
index 7ca6a4c..caac329 100644 (file)
@@ -13221,7 +13221,14 @@ END
 
                 # Find the non-default table.
                 for my $table ($property->tables) {
-                    next if $table == $default_table;
+                    if ($table == $default_table) {
+                        if ($v_version le v5.0.0) {
+                            $table->add_alias($_) for qw(N No F False);
+                        }
+                        next;
+                    } elsif ($v_version le v5.0.0) {
+                        $table->add_alias($_) for qw(Y Yes T True);
+                    }
                     $non_default_table = $table;
                 }
                 $default_table->set_complement($non_default_table);
index 71f10ab..e02b884 100644 (file)
  * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
  * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
  * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
- * 571e444a844d3c9bbea922442d675b686aa453b65a3a71235e95982cd1aa5e61 lib/unicore/mktables
+ * b2512ebf649f5d9fd1100f6e053801a4305acad72e79a0bc91c70ee3d1c19de6 lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * 8b29da548b7ad90659de234b5061a8c9fb0f40322a256d60fc5e9385ae4ece0e regen/regcharclass.pl