From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 16 May 2012 04:19:51 +0000 (-0600)
Subject: mktables: Make sure a \p{ID_Continue} is also \p{Word}
X-Git-Tag: v5.17.1~274^2~9
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/c88f7420f6aecc55074218f427bfc9e23a8738fe?ds=sidebyside

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
--- 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,