mktables: Make sure a \p{ID_Continue} is also \p{Word}

This is for consistency with ID_Start.  This property has yet to be used
in the Perl core.

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 9b97537..422d279 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -13251,6 +13251,8 @@ sub compile_perl() {
         }
     }
 
+    $perl_xidc &= $Word;
+
     my $gcb = property_ref('Grapheme_Cluster_Break');
     # These are used in Unicode's definition of \X
     my $begin = $perl->add_match_table('_X_Begin', Perl_Extension => 1,