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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index b12f21b283..a4beda6851 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -678,6 +678,8 @@ PERLVAR(Idebug_pad, struct perl_debug_pad) /* always needed because of the re ex PERLVAR(Iutf8_idstart, SV *) PERLVAR(Iutf8_idcont, SV *) +PERLVAR(Iutf8_xidstart, SV *) +PERLVAR(Iutf8_xidcont, SV *) PERLVAR(Isort_RealCmp, SVCOMPARE_t) |