diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2011-10-06 22:17:33 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-10-06 22:17:33 -0700 |
| commit | c60dbbc3880c0d4c4f81d95fb1d70b608f96a645 (patch) | |
| tree | 8c27ae687782db5088cf0fd5d43f2b88d82b20ef /pp_ctl.c | |
| parent | 51a1303ca5c496ad5fb0bb3bc37f2b3584e845b9 (diff) | |
| download | perl-c60dbbc3880c0d4c4f81d95fb1d70b608f96a645.tar.gz | |
Cast to signed before negating, to avoid compiler warnings
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1765,7 +1765,7 @@ Perl_die_unwind(pTHX_ SV *msv) if (optype == OP_REQUIRE) { (void)hv_store(GvHVn(PL_incgv), SvPVX_const(namesv), - SvUTF8(namesv) ? -SvCUR(namesv) : SvCUR(namesv), + SvUTF8(namesv) ? -(I32)SvCUR(namesv) : (I32)SvCUR(namesv), &PL_sv_undef, 0); /* note that unlike pp_entereval, pp_require isn't * supposed to trap errors. So now that we've popped the @@ -2480,7 +2480,7 @@ PP(pp_return) /* Unassume the success we assumed earlier. */ (void)hv_delete(GvHVn(PL_incgv), SvPVX_const(namesv), - SvUTF8(namesv) ? -SvCUR(namesv) : SvCUR(namesv), + SvUTF8(namesv) ? -(I32)SvCUR(namesv) : (I32)SvCUR(namesv), G_DISCARD); DIE(aTHX_ "%"SVf" did not return a true value", SVfARG(namesv)); } @@ -3566,7 +3566,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) } (void)hv_store(GvHVn(PL_incgv), SvPVX_const(namesv), - SvUTF8(namesv) ? -SvCUR(namesv) : SvCUR(namesv), + SvUTF8(namesv) ? -(I32)SvCUR(namesv) : (I32)SvCUR(namesv), &PL_sv_undef, 0); Perl_croak(aTHX_ "%"SVf"Compilation failed in require", SVfARG(ERRSV @@ -4276,7 +4276,7 @@ PP(pp_leaveeval) /* Unassume the success we assumed earlier. */ (void)hv_delete(GvHVn(PL_incgv), SvPVX_const(namesv), - SvUTF8(namesv) ? -SvCUR(namesv) : SvCUR(namesv), + SvUTF8(namesv) ? -(I32)SvCUR(namesv) : (I32)SvCUR(namesv), G_DISCARD); retop = Perl_die(aTHX_ "%"SVf" did not return a true value", SVfARG(namesv)); |