diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-11-08 11:01:38 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-11-11 10:11:33 -0700 |
| commit | 699ffc5e6f6d1426d23e60b98f7935ec76291935 (patch) | |
| tree | 8a7abd759efc5661c176d970fdcbbd560d374e65 /regen | |
| parent | f67fde43a308b02d9b4a9c465b82a64561222f45 (diff) | |
| download | perl-699ffc5e6f6d1426d23e60b98f7935ec76291935.tar.gz | |
regen/mk_PL_charclass.pl: Use mktables table for charname
This commit uses the mktables defined table for whether or not a
character is a legitimate charname continuation. This will allow it to
be kept in sync with other code that needs the definition.
The only change this makes is to delete "colon" from being a legitimate
continuation character. A colon was only accepted because it was used
in the paradigm for like "Greek: Alpha", and is not part of any
actual character name.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index 18d535fc58..0aac59e005 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -182,7 +182,7 @@ for my $ord (0..255) { # just \pP outside it. $re = qr/\p{Punct}|[^\P{Symbol}\P{ASCII}]/; } elsif ($name eq 'CHARNAME_CONT') {; - $re = qr/[-\p{XPosixWord} ():\xa0]/; + $re = qr/\p{_Perl_Charname_Continue}/, } elsif ($name eq 'SPACE') {; $re = qr/\p{XPerlSpace}/; } elsif ($name eq 'IDFIRST') { |