In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a96035c56e6096e8091826002c1d47a0595502f0?hp=7a258a813b64e345d010ffe1c16ce7e55e146e50>
- Log ----------------------------------------------------------------- commit a96035c56e6096e8091826002c1d47a0595502f0 Author: Karl Williamson <[email protected]> Date: Mon Sep 2 11:17:13 2013 -0600 toke.c: Clarify comment ----------------------------------------------------------------------- Summary of changes: toke.c | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/toke.c b/toke.c index d6df9ed..01073d5 100644 --- a/toke.c +++ b/toke.c @@ -9389,9 +9389,14 @@ S_scan_ident(pTHX_ char *s, const char *send, char *dest, STRLEN destlen, I32 ck s++; } -/* \c?, \c\, \c^, \c_, and \cA..\cZ minus the ones that have traditionally - * been matched by \s on ASCII platforms, are the legal control char names - * here, that is \c? plus 1-32 minus the \s ones. */ +/* Is the byte 'd' a legal single character identifier name? 'u' is true + * iff Unicode semantics are to be used. The legal ones are any of: + * a) ASCII digits + * b) ASCII punctuation + * c) When not under Unicode rules, any upper Latin1 character + * d) \c?, \c\, \c^, \c_, and \cA..\cZ, minus the ones that have traditionally + * been matched by \s on ASCII platforms. That is: \c?, plus 1-32, minus + * the \s ones. */ #define VALID_LEN_ONE_IDENT(d, u) (isPUNCT_A((U8)(d)) \ || isDIGIT_A((U8)(d)) \ || (!(u) && !isASCII((U8)(d))) \ -- Perl5 Master Repository
