diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-07-26 09:56:27 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-07-26 10:38:26 -0600 |
| commit | 7a4d6ad6921760cfbf05a181861e2cddaf121a45 (patch) | |
| tree | 864de9e127c7cd0b3108f775640d5ab264ccd696 /lib/unicore | |
| parent | 0338a13cb079549e909a87da11794f34c6f708e5 (diff) | |
| download | perl-7a4d6ad6921760cfbf05a181861e2cddaf121a45.tar.gz | |
mktables: Change \w definition to match new Unicode's
Unicode has changed their definition of what should match \w.
http://www.unicode.org/reports/tr18/. This follows that change.
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 776741eeba..4c8059775c 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -13159,6 +13159,13 @@ sub compile_perl() { else { $Word += ord('_'); # Make sure this is a $Word } + my $JC = property_ref('Join_Control'); # Wasn't in release 1 + if (defined $JC) { + $Word += $JC->table('Y'); + } + else { + $Word += 0x200C + 0x200D; + } # This is a Perl extension, so the name doesn't begin with Posix. my $PerlWord = $perl->add_match_table('PerlWord', |