diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-30 15:11:07 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-30 15:11:07 +0000 |
| commit | 8206a063cdc1c193b12df1a45cb3a0ee430b5077 (patch) | |
| tree | 45fb29ee11703ddeadeb8fa6d9673bc12d51394b /pp.c | |
| parent | 2ddcc7aa6c936ba8e7a9703319dfd8959bb54574 (diff) | |
| parent | 3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03 (diff) | |
| download | perl-8206a063cdc1c193b12df1a45cb3a0ee430b5077.tar.gz | |
Merge maint-5.004 branch (5.004_01) with mainline.
p4raw-id: //depot/perl@84
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -178,7 +178,7 @@ PP(pp_rv2gv) GV *gv = (GV*) sv_newmortal(); gv_init(gv, 0, "", 0, 0); GvIOp(gv) = (IO *)sv; - SvREFCNT_inc(sv); + (void)SvREFCNT_inc(sv); sv = (SV*) gv; } else if (SvTYPE(sv) != SVt_PVGV) DIE("Not a GLOB reference"); @@ -777,6 +777,8 @@ PP(pp_modulo) if ((left_neg != right_neg) && ans) ans = right - ans; if (right_neg) { + /* XXX may warn: unary minus operator applied to unsigned type */ + /* could change -foo to be (~foo)+1 instead */ if (ans <= -(UV)IV_MAX) sv_setiv(TARG, (IV) -ans); else |