diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-03-07 03:46:36 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-09 00:00:00 +0000 |
| commit | b25809da6d2fc5e61497c7df6731abd5b4a2b2a8 (patch) | |
| tree | ec3ad8a050aa53b233543975742e2d7877b40acd /perly.y | |
| parent | 51aa1f50381e5da72a88a12f8d8c09a5fc718cf7 (diff) | |
| download | perl-b25809da6d2fc5e61497c7df6731abd5b4a2b2a8.tar.gz | |
Fix label on C<for(;;)> statement
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -208,8 +208,8 @@ loop : label WHILE '(' remember mtexpr ')' mblock cont /* basically fake up an initialize-while lineseq */ { copline = $2; $$ = block_end($4, - append_elem(OP_LINESEQ, scalar($5), - newSTATEOP(0, $1, + newSTATEOP(0, $1, + append_elem(OP_LINESEQ, scalar($5), newWHILEOP(0, 1, (LOOP*)Nullop, scalar($7), $11, scalar($9))))); } |