summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorChip Salzenberg <chip@atlantic.net>1997-01-07 10:00:11 +1200
committerChip Salzenberg <chip@atlantic.net>1997-01-08 11:52:00 +1200
commit1fbd88dca62ac1229f868175c997834e730e5134 (patch)
tree9340aadc0c073321c2e9cac7da0d444c8b45f310 /pp.c
parentb8378b72956f290ff41ea1ce3b194c78c89181a1 (diff)
downloadperl-1fbd88dca62ac1229f868175c997834e730e5134.tar.gz
Finish OP= warnings: none on ^=
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index 089d523966..7a24843f5d 100644
--- a/pp.c
+++ b/pp.c
@@ -977,11 +977,11 @@ PP(pp_bit_xor)
dPOPTOPssrl;
if (SvNIOKp(left) || SvNIOKp(right)) {
if (op->op_private & HINT_INTEGER) {
- IBW value = SvIV(left) ^ SvIV(right);
+ IBW value = (USE_LEFT(left) ? SvIV(left) : 0) ^ SvIV(right);
SETi( value );
}
else {
- UBW value = SvUV(left) ^ SvUV(right);
+ UBW value = (USE_LEFT(left) ? SvUV(left) : 0) ^ SvUV(right);
SETu( value );
}
}