Remove support for qr/\p{_Comb_Above}/

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.

5 files changed, 4 insertions, 12 deletions

diff --git a/charclass_invlists.h b/charclass_invlists.h
index e5121fb10a..8916697823 100644
--- a/charclass_invlists.h
+++ b/charclass_invlists.h
@@ -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
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 1b295a4b35..9a4a9870e7 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -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');
diff --git a/regcharclass.h b/regcharclass.h
index b3df636234..b41f86a3ad 100644
--- a/regcharclass.h
+++ b/regcharclass.h
@@ -1898,7 +1898,7 @@
  * 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
diff --git a/uni_keywords.h b/uni_keywords.h
index 19c02c4c04..8d04722be0 100644
--- a/uni_keywords.h
+++ b/uni_keywords.h
@@ -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 406fb8bdde..ed10ace37f 100644
--- 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;