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 | |
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.
-rw-r--r-- | l1_char_class_tab.h | 2 | ||||
-rw-r--r-- | regen/mk_PL_charclass.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/l1_char_class_tab.h b/l1_char_class_tab.h index 286b666381..d346993f51 100644 --- a/l1_char_class_tab.h +++ b/l1_char_class_tab.h @@ -62,7 +62,7 @@ /* U+37 '7' */ (1U<<_CC_ALNUMC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT), /* U+38 '8' */ (1U<<_CC_ALNUMC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT), /* U+39 '9' */ (1U<<_CC_ALNUMC)|(1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_DIGIT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_WORDCHAR)|(1U<<_CC_XDIGIT), -/* U+3A ':' */ (1U<<_CC_ASCII)|(1U<<_CC_CHARNAME_CONT)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA), +/* U+3A ':' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA), /* U+3B ';' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA), /* U+3C '<' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA), /* U+3D '=' */ (1U<<_CC_ASCII)|(1U<<_CC_GRAPH)|(1U<<_CC_PRINT)|(1U<<_CC_PUNCT)|(1U<<_CC_QUOTEMETA), 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') { |