diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-20 20:12:54 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-20 20:12:54 +0000 |
| commit | 2b84528b3b38853e791751a3bd2b6b8990027ef2 (patch) | |
| tree | 22fd1375e89b6c124087aea2af33da0dcf3a620f /op.c | |
| parent | a783c5f421048120dc022238eeb6eb8a62d130d0 (diff) | |
| download | perl-2b84528b3b38853e791751a3bd2b6b8990027ef2.tar.gz | |
The warning "Possible precedence problem on bitwise operator"
was incorrectly produced with the bitwise-assignment operators.
Fix it. (bug #23065 concerning 5.8.1 RC2)
p4raw-id: //depot/perl@20171
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -4686,9 +4686,10 @@ Perl_ck_bitop(pTHX_ OP *o) (op) == OP_NE || (op) == OP_I_NE || \ (op) == OP_NCMP || (op) == OP_I_NCMP) o->op_private = (U8)(PL_hints & HINT_PRIVATE_MASK); - if (o->op_type == OP_BIT_OR - || o->op_type == OP_BIT_AND - || o->op_type == OP_BIT_XOR) + if (!(o->op_flags & OPf_STACKED) /* Not an assignment */ + && (o->op_type == OP_BIT_OR + || o->op_type == OP_BIT_AND + || o->op_type == OP_BIT_XOR)) { OP * left = cBINOPo->op_first; OP * right = left->op_sibling; |