diff options
author | Chip Salzenberg <chip@atlantic.net> | 1997-01-07 10:00:11 +1200 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-08 11:52:00 +1200 |
commit | 1fbd88dca62ac1229f868175c997834e730e5134 (patch) | |
tree | 9340aadc0c073321c2e9cac7da0d444c8b45f310 /pp.c | |
parent | b8378b72956f290ff41ea1ce3b194c78c89181a1 (diff) | |
download | perl-1fbd88dca62ac1229f868175c997834e730e5134.tar.gz |
Finish OP= warnings: none on ^=
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 ); } } |