diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-06-21 06:19:31 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-06-22 16:35:33 +0000 |
| commit | 0165acc7988347eaec71b2c2d2a9764893f0c240 (patch) | |
| tree | b4029237d15b8076708dea4f2338bb3dc1cd4462 /op.c | |
| parent | b3c0ec7c1220f243dffb147d13728e1cc44420cc (diff) | |
| download | perl-0165acc7988347eaec71b2c2d2a9764893f0c240.tar.gz | |
Re: Is it a Bug? ($c .= "5") . "6"
Message-ID: <20030621001931.GB1255@ratsnest.hole>
p4raw-id: //depot/perl@19841
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -4701,8 +4701,9 @@ Perl_ck_bitop(pTHX_ OP *o) OP * Perl_ck_concat(pTHX_ OP *o) { - if (cUNOPo->op_first->op_type == OP_CONCAT) - o->op_flags |= OPf_STACKED; + OP *kid = cUNOPo->op_first; + if (kid->op_type == OP_CONCAT && !(kUNOP->op_first->op_flags & OPf_MOD)) + o->op_flags |= OPf_STACKED; return o; } |