regen/mk_invlists.pl: Add to list of props to keep together

Using the same idea as pp_hot.c, the Unicode properties actually used by
perl are attempted to be kept together so that paging in one is likely
to page in others.  A few were omitted prior to this commit.

1 files changed, 12 insertions, 10 deletions

diff --git a/utf8.c b/utf8.c
index c62bd3e4c4..517c5a46d0 100644
--- a/utf8.c
+++ b/utf8.c
@@ -6226,20 +6226,22 @@ Perl_parse_uniprop_string(pTHX_ const char * const name, const Size_t len, const
     /* In a few properties, a different property is used under /i.  These are
      * unlikely to change, so are hard-coded here. */
     if (to_fold) {
-        if (   table_index == PL_XPOSIXUPPER
-            || table_index == PL_XPOSIXLOWER
-            || table_index == PL_LT)
+        if (   table_index == PL_UPPER
+            || table_index == PL_LOWER
+            || table_index == PL_TITLE)
         {
             table_index = PL_CASED;
         }
-        else if (   table_index == PL_LU
-                 || table_index == PL_LL
-                 || table_index == PL_LT)
-        {
-            table_index = PL_L_AMP_;
+        else if (   table_index == PL_UPPERCASELETTER
+                 || table_index == PL_LOWERCASELETTER
+#ifdef PL_TITLECASELETTER   /* Missing from early Unicodes */
+                 || table_index == PL_TITLECASELETTER
+#endif
+        ) {
+            table_index = PL_CASEDLETTER;
         }
-        else if (   table_index == PL_POSIXUPPER
-                 || table_index == PL_POSIXLOWER)
+        else if (  table_index == PL_POSIXUPPER
+                || table_index == PL_POSIXLOWER)
         {
             table_index = PL_POSIXALPHA;
         }