diff options
| author | Chip Salzenberg <chip@pobox.com> | 1997-09-16 09:47:28 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-02 03:01:27 +0000 |
| commit | ecca16b0cfe0c7f04ba520f2924946a13507530e (patch) | |
| tree | 24ae5b5a1830dddf285dc713d84023901e907fd8 /toke.c | |
| parent | dab48698179b4e8606409875b7121f225bcf46be (diff) | |
| download | perl-ecca16b0cfe0c7f04ba520f2924946a13507530e.tar.gz | |
[win32] yet another patch
Message-Id: <199709161748.NAA08418@nielsenmedia.com>
Subject: Tiny but massively cool: C<statement foreach @list>
p4raw-id: //depot/win32/perl@612
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3074,7 +3074,7 @@ yylex(void) case KEY_foreach: yylval.ival = curcop->cop_line; s = skipspace(s); - if (isIDFIRST(*s)) { + if (expect == XSTATE && isIDFIRST(*s)) { char *p = s; if ((bufend - p) >= 3 && strnEQ(p, "my", 2) && isSPACE(*(p + 2))) |