diff options
| author | Gerard Goossen <gerard@tty.nl> | 2007-03-21 20:18:52 +0100 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-03-22 00:16:23 +0000 |
| commit | 700f8fa57dd2ddf62360a5b615a799f680e4bf19 (patch) | |
| tree | 4a8067af32315fd6ccd8cb705c3807dd8c9a6a01 /perly.y | |
| parent | 8b7231d9a7617fcb58e0a2517db5f2a58d67e5d2 (diff) | |
| download | perl-700f8fa57dd2ddf62360a5b615a799f680e4bf19.tar.gz | |
fix MAD compilation of C-style for loop
Subject: [PATCH] MAD C-style for loop
Message-Id: <20070321181852.GD31539@ostwald>
p4raw-id: //depot/perl@30676
Diffstat (limited to 'perly.y')
| -rw-r--r-- | perly.y | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -391,7 +391,7 @@ loop : label WHILE '(' remember texpr ')' mintro mblock cont forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ, newSTATEOP(0, CopLABEL_alloc(($1)->tk_lval.pval), - ($5 ? newOP(OP_NULL, 0) : $5) ), + ($5 ? $5 : newOP(OP_NULL, 0)) ), forop)); token_getmad($2,forop,'3'); |