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 /doop.c | |
| parent | b8378b72956f290ff41ea1ce3b194c78c89181a1 (diff) | |
| download | perl-1fbd88dca62ac1229f868175c997834e730e5134.tar.gz | |
Finish OP= warnings: none on ^=
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -535,8 +535,8 @@ SV *right; char *lsave; char *rsave; - if (optype == OP_BIT_OR && sv == left && !SvOK(sv) && !SvGMAGICAL(sv)) - sv_setpvn(sv, "", 0); /* avoid undef warning on |= */ + if (sv != left || (optype != OP_BIT_AND && !SvOK(sv) && !SvGMAGICAL(sv))) + sv_setpvn(sv, "", 0); /* avoid undef warning on |= and ^= */ lsave = lc = SvPV(left, leftlen); rsave = rc = SvPV(right, rightlen); len = leftlen < rightlen ? leftlen : rightlen; |