summaryrefslogtreecommitdiff
path: root/t/lib
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-07-20 20:12:54 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-07-20 20:12:54 +0000
commit2b84528b3b38853e791751a3bd2b6b8990027ef2 (patch)
tree22fd1375e89b6c124087aea2af33da0dcf3a620f /t/lib
parenta783c5f421048120dc022238eeb6eb8a62d130d0 (diff)
downloadperl-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 't/lib')
-rw-r--r--t/lib/warnings/op1
1 files changed, 1 insertions, 0 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 58056a6ce5..35779a9f5a 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -909,6 +909,7 @@ $a = $b < $c & $d;
$a = $b >= $c ^ $d;
$a = $b <= $c | $d;
$a = $b <=> $c & $d;
+$a &= $b == $c; $a |= $b == $c; $a ^= $b == $c; # shouldn't warn
no warnings 'precedence';
$a = $b & $c == $d;
$a = $b ^ $c != $d;