add comment to foreach toking code

to make it clear what its doing.

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);