diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-17 14:43:10 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-17 15:41:54 -0700 |
| commit | c11ff9433950cda8448b773418d1cb2592eea29d (patch) | |
| tree | f0284cd5865f0db8c7484123153ab8fb860aa129 /embed.h | |
| parent | 0167186c6da6afb0eb6708879a543c70c612fc45 (diff) | |
| download | perl-c11ff9433950cda8448b773418d1cb2592eea29d.tar.gz | |
handy.h: isIDFIRST_utf8() changed to use XIDStart
Previously this used a home-grown definition of an identifier start,
stemming from a bug in some early Unicode versions. This led to some
problems, fixed by #74022.
But the home-grown solution did not track Unicode, and allowed for
characters, like marks, to begin words when they shouldn't. This change
brings this macro into compliance with Unicode going-forward.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -251,6 +251,8 @@ #define is_utf8_string_loclen Perl_is_utf8_string_loclen #define is_utf8_upper(a) Perl_is_utf8_upper(aTHX_ a) #define is_utf8_xdigit(a) Perl_is_utf8_xdigit(aTHX_ a) +#define is_utf8_xidcont(a) Perl_is_utf8_xidcont(aTHX_ a) +#define is_utf8_xidfirst(a) Perl_is_utf8_xidfirst(aTHX_ a) #define leave_scope(a) Perl_leave_scope(aTHX_ a) #define lex_bufutf8() Perl_lex_bufutf8(aTHX) #define lex_discard_to(a) Perl_lex_discard_to(aTHX_ a) |