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.act | |
| 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.act')
| -rw-r--r-- | perly.act | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -325,7 +325,7 @@ case 2: forop = newUNOP(OP_NULL, 0, append_elem(OP_LINESEQ, newSTATEOP(0, CopLABEL_alloc(((ps[(1) - (12)].val.p_tkval))->tk_lval.pval), - ((ps[(5) - (12)].val.opval) ? newOP(OP_NULL, 0) : (ps[(5) - (12)].val.opval)) ), + ((ps[(5) - (12)].val.opval) ? (ps[(5) - (12)].val.opval) : newOP(OP_NULL, 0)) ), forop)); token_getmad((ps[(2) - (12)].val.i_tkval),forop,'3'); |