This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove support for qr/\p{_Comb_Above}/
authorKarl Williamson <khw@cpan.org>
Wed, 25 Apr 2018 20:21:04 +0000 (14:21 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Jun 2018 13:33:28 +0000 (07:33 -0600)
This property is no longer used in the core, nor in cpan, and is marked
as for core use only, not necessarily stable.  I have kept it around
because it was work to remove it, but now the revamping of the property
lookup scheme was causing failures with a similar property, and the
previous commit removed that one.

There are just three of these properties, and I think it's time to
remove support for all three.  The next commit will do the same for the
third one.

charclass_invlists.h
lib/unicore/mktables
regcharclass.h
uni_keywords.h
utf8.c

index e5121fb..8916697 100644 (file)
@@ -374281,7 +374281,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
- * adb918c0bf7b70c1ba9339ad51395540c8f3605ac649ad0f55affa9fbd7b8f5d lib/unicore/mktables
+ * 69db3ac5286e898ad1eb6d20f7bfc5ef5680523bab4d10d5ee9f57c45025e301 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
index 1b295a4..9a4a987 100644 (file)
@@ -14469,13 +14469,6 @@ sub compile_perl() {
 
     calculate_Assigned();
 
-    # Our internal-only property should be treated as more than just a
-    # synonym; grandfather it in to the pod.
-    $perl->add_match_table('_CombAbove', Re_Pod_Entry => 1,
-                            Fate => $INTERNAL_ONLY, Status => $DISCOURAGED)
-            ->set_equivalent_to(property_ref('ccc')->table('Above'),
-                                                                Related => 1);
-
     my $ASCII = $perl->add_match_table('ASCII');
     if (defined $block) {   # This is equivalent to the block if have it.
         my $Unicode_ASCII = $block->table('Basic_Latin');
index b3df636..b41f86a 100644 (file)
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * adb918c0bf7b70c1ba9339ad51395540c8f3605ac649ad0f55affa9fbd7b8f5d lib/unicore/mktables
+ * 69db3ac5286e898ad1eb6d20f7bfc5ef5680523bab4d10d5ee9f57c45025e301 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 9ea6338945a7d70e5ea4b31ac7856c0b521df96be002e94b4b3b7d31debbf3ab regen/regcharclass.pl
index 19c02c4..8d04722 100644 (file)
@@ -6753,7 +6753,7 @@ MPH_VALt match_uniprop( const unsigned char * const key, const U16 key_len ) {
  * be0f129691d479aa38646e4ca0ec1ee576ae7f75b0300a5624a7fa862fa8abba lib/unicore/extracted/DLineBreak.txt
  * 92449d354d9f6b6f2f97a292ebb59f6344ffdeb83d120d7d23e569c43ba67cd5 lib/unicore/extracted/DNumType.txt
  * e3a319527153b0c6c0c549b40fc6f3a01a7a0dcd6620784391db25901df3b154 lib/unicore/extracted/DNumValues.txt
- * adb918c0bf7b70c1ba9339ad51395540c8f3605ac649ad0f55affa9fbd7b8f5d lib/unicore/mktables
+ * 69db3ac5286e898ad1eb6d20f7bfc5ef5680523bab4d10d5ee9f57c45025e301 lib/unicore/mktables
  * 21653d2744fdd071f9ef138c805393901bb9547cf3e777ebf50215a191f986ea lib/unicore/version
  * 4bb677187a1a64e39d48f2e341b5ecb6c99857e49d7a79cf503bd8a3c709999b regen/charset_translations.pl
  * 03e51b0f07beebd5da62ab943899aa4934eee1f792fa27c1fb638c33bf4ac6ea regen/mk_PL_charclass.pl
diff --git a/utf8.c b/utf8.c
index 406fb8b..ed10ace 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -6070,8 +6070,7 @@ Perl_parse_uniprop_string(pTHX_ const char * const name, const Size_t len, const
         if (   (   memBEGINPs(lookup_name, j, "perl")
                 && memNEs(lookup_name + 4, j - 4, "space")
                 && memNEs(lookup_name + 4, j - 4, "word"))
-            || memEQs(lookup_name, j, "canondcij")
-            || memEQs(lookup_name, j, "combabove"))
+            || memEQs(lookup_name, j, "canondcij"))
         {
             stricter = TRUE;