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.c | |
| parent | 51aa1f50381e5da72a88a12f8d8c09a5fc718cf7 (diff) | |
| download | perl-b25809da6d2fc5e61497c7df6731abd5b4a2b2a8.tar.gz | |
Fix label on C<for(;;)> statement
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1628,8 +1628,8 @@ case 32: #line 209 "perly.y" { copline = yyvsp[-9].ival; yyval.opval = block_end(yyvsp[-7].ival, - append_elem(OP_LINESEQ, scalar(yyvsp[-6].opval), - newSTATEOP(0, yyvsp[-10].pval, + newSTATEOP(0, yyvsp[-10].pval, + append_elem(OP_LINESEQ, scalar(yyvsp[-6].opval), newWHILEOP(0, 1, (LOOP*)Nullop, scalar(yyvsp[-4].opval), yyvsp[0].opval, scalar(yyvsp[-2].opval))))); } |