This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Fix up property calc for early Unicodes
authorKarl Williamson <khw@cpan.org>
Thu, 20 Aug 2015 16:48:36 +0000 (10:48 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 20 Aug 2015 18:48:20 +0000 (12:48 -0600)
The Default_Ignorable_Code_Point property is applicable to unassigned
code points, so shouldn't restrict our calculated value to assigned.
(We calculate what the property would be when run on Unicode releases
that haven't defined it yet.)

charclass_invlists.h
lib/unicore/mktables
regcharclass.h

index f944924..76bb7bd 100644 (file)
@@ -99537,7 +99537,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
- * 0df86fe052dfedba84605ee6a1fd17e584ef8b864b5d224acf15c8e080d1cb12 lib/unicore/mktables
+ * 0860cee389e43e09c85ffe4ca10ad58bfadfdf36026bc195f7d35da8430adf9a lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * 8a097f8f726bb1619af2f27f149ab87e60a1602f790147e3a561358be16abd27 regen/mk_invlists.pl
index 18a8186..1b0d469 100644 (file)
@@ -14700,6 +14700,9 @@ END
         if ($v_version ge v2.0) {
             $quotemeta += $gc->table('Cf')
                        +  $gc->table('Cs');
+
+            # These are above the Unicode version 1 max
+            $quotemeta->add_range(0xE0000, 0xE0FFF);
         }
         $quotemeta += $gc->table('Cc')
                     - $Space;
@@ -14709,7 +14712,7 @@ END
                                                    0xFFF0 .. 0xFFFB,
                                                    0xE0000 .. 0xE0FFF,
                                                   ]);
-        $quotemeta += $temp & $Assigned;
+        $quotemeta += $temp;
     }
 
     my $nchar = $perl->add_match_table('_Perl_Nchar',
index 180f59e..0ccc751 100644 (file)
  * 1a0687fb9c6c4567e853913549df0944fe40821279a3e9cdaa6ab8679bc286fd lib/unicore/extracted/DLineBreak.txt
  * 40bcfed3ca727c19e1331f6c33806231d5f7eeeabd2e6a9e06a3740c85d0c250 lib/unicore/extracted/DNumType.txt
  * a18d502bad39d527ac5586d7bc93e29f565859e3bcc24ada627eff606d6f5fed lib/unicore/extracted/DNumValues.txt
- * 0df86fe052dfedba84605ee6a1fd17e584ef8b864b5d224acf15c8e080d1cb12 lib/unicore/mktables
+ * 0860cee389e43e09c85ffe4ca10ad58bfadfdf36026bc195f7d35da8430adf9a lib/unicore/mktables
  * 462c9aaa608fb2014cd9649af1c5c009485c60b9c8b15b89401fdc10cf6161c6 lib/unicore/version
  * c6884f4d629f04d1316f3476cb1050b6a1b98ca30c903262955d4eae337c6b1e regen/charset_translations.pl
  * d9c04ac46bdd81bb3e26519f2b8eb6242cb12337205add3f7cf092b0c58dccc4 regen/regcharclass.pl