diff options
author | Karl Williamson <khw@cpan.org> | 2018-03-12 08:32:33 +0000 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2018-03-12 08:32:53 +0000 |
commit | 15f5c3eecd5da721bdf15140559a57019a110794 (patch) | |
tree | 77ead505461d6d8458fd18cd07c941521df9b49f /lib | |
parent | 13800a14eb740499290fd72091ef0be221d483e8 (diff) | |
download | perl-15f5c3eecd5da721bdf15140559a57019a110794.tar.gz |
PATCH: [perl #132463] perluniprops for \p{Word}
perluniprops was not updated to reflect the changes made to what
\p{Word} contains as of 5.18. What was added was the code points that
have the Join_Control property, which, so far, only contain U+200C and
U+200D. This commit uses Join Control instead of the hard-coded code
point numbers, so that when Unicode changes it, it automatically will
still be valid.
Thanks for spotting this.
(cherry picked from commit 9b79e9e3431d11e79a4f85268f70130b7b4369f6)
Diffstat (limited to 'lib')
-rw-r--r-- | lib/unicore/mktables | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index e3336f50e0..761d3c6653 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -14485,7 +14485,8 @@ sub compile_perl() { my $Word = $perl->add_match_table('Word', Full_Name => 'XPosixWord', Description => '\w, including beyond ASCII;' - . ' = \p{Alnum} + \pM + \p{Pc}', + . ' = \p{Alnum} + \pM + \p{Pc}' + . ' + \p{Join_Control}', Initialize => $Alnum + $gc->table('Mark'), ); my $Pc = $gc->table('Connector_Punctuation'); # 'Pc' Not in release 1 |