This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add comment to foreach toking code
authorDavid Mitchell <davem@iabyn.com>
Fri, 18 Oct 2013 16:00:29 +0000 (17:00 +0100)
committerDavid Mitchell <davem@iabyn.com>
Fri, 18 Oct 2013 16:00:29 +0000 (17:00 +0100)
to make it clear what its doing.

toke.c

diff --git a/toke.c b/toke.c
index 1ab57f3..eb9d71f 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8034,6 +8034,7 @@ Perl_yylex(pTHX)
                    strnEQ(p, "our", 3) && isSPACE(*(p + 3)))
                    p += 3;
                p = PEEKSPACE(p);
+                /* skip optional package name, as in "for my abc $x (..)" */
                if (isIDFIRST_lazy_if(p,UTF)) {
                    p = scan_word(p, PL_tokenbuf, sizeof PL_tokenbuf, TRUE, &len);
                    p = PEEKSPACE(p);