This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Comments, white-space only
authorKarl Williamson <khw@cpan.org>
Sun, 12 Jul 2015 04:39:54 +0000 (22:39 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 13 Jul 2015 18:17:41 +0000 (12:17 -0600)
Add some clarifying comments, and properly indent some lines to
prevailing level.

toke.c

diff --git a/toke.c b/toke.c
index 29ebbbf..48b853d 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8631,7 +8631,7 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni)
            *d++ = *s++;
        }
     }
            *d++ = *s++;
        }
     }
-    else {
+    else {  /* See if it is a "normal" identifier */
         parse_ident(&s, &d, e, 1, is_utf8);
     }
     *d = '\0';
         parse_ident(&s, &d, e, 1, is_utf8);
     }
     *d = '\0';
@@ -8643,6 +8643,9 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni)
            PL_lex_state = LEX_INTERPENDMAYBE;
        return s;
     }
            PL_lex_state = LEX_INTERPENDMAYBE;
        return s;
     }
+
+    /* Here, it is not a run-of-the-mill identifier name */
+
     if (*s == '$' && s[1] &&
       (isIDFIRST_lazy_if(s+1,is_utf8)
          || isDIGIT_A((U8)s[1])
     if (*s == '$' && s[1] &&
       (isIDFIRST_lazy_if(s+1,is_utf8)
          || isDIGIT_A((U8)s[1])
@@ -8745,8 +8748,8 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni)
             /* if it starts as a valid identifier, assume that it is one.
                (the later check for } being at the expected point will trap
                cases where this doesn't pan out.)  */
             /* if it starts as a valid identifier, assume that it is one.
                (the later check for } being at the expected point will trap
                cases where this doesn't pan out.)  */
-        d += is_utf8 ? UTF8SKIP(d) : 1;
-        parse_ident(&s, &d, e, 1, is_utf8);
+            d += is_utf8 ? UTF8SKIP(d) : 1;
+            parse_ident(&s, &d, e, 1, is_utf8);
            *d = '\0';
             tmp_copline = CopLINE(PL_curcop);
             if (s < PL_bufend && isSPACE(*s)) {
            *d = '\0';
             tmp_copline = CopLINE(PL_curcop);
             if (s < PL_bufend && isSPACE(*s)) {