diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-08-01 14:46:48 +0200 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-09-08 16:49:59 +0000 |
| commit | 0c34ef67a6aacb77e2b5421df56439f11f4d78c0 (patch) | |
| tree | 43e67efbabfb5340312bcb8c06c91ea20c158930 /sv.c | |
| parent | 59ca07c7edc9811274fdf723986979460325278a (diff) | |
| download | perl-0c34ef67a6aacb77e2b5421df56439f11f4d78c0.tar.gz | |
SvO?OK_off()'s return value
Message-Id: <20040801124648.7f9b3cee@r2d2>
Move (void) casts into SvOOK_off macro.
p4raw-id: //depot/perl@23277
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -4952,7 +4952,8 @@ Perl_sv_release_IVX(pTHX_ register SV *sv) { if (SvIsCOW(sv)) sv_force_normal_flags(sv, 0); - return SvOOK_off(sv); + SvOOK_off(sv); + return 0; } #endif /* @@ -5975,7 +5976,7 @@ Perl_sv_clear(pTHX_ register SV *sv) case SVt_PVNV: case SVt_PVIV: freescalar: - (void)SvOOK_off(sv); + SvOOK_off(sv); /* FALL THROUGH */ case SVt_PV: case SVt_RV: @@ -7917,7 +7918,7 @@ Perl_sv_reset(pTHX_ register char *s, HV *stash) sv_unref(sv); continue; } - (void)SvOK_off(sv); + SvOK_off(sv); if (SvTYPE(sv) >= SVt_PV) { SvCUR_set(sv, 0); if (SvPVX(sv) != Nullch) @@ -8521,14 +8522,14 @@ Perl_newSVrv(pTHX_ SV *rv, const char *classname) if (SvTYPE(rv) < SVt_RV) sv_upgrade(rv, SVt_RV); else if (SvTYPE(rv) > SVt_RV) { - (void)SvOOK_off(rv); + SvOOK_off(rv); if (SvPVX(rv) && SvLEN(rv)) Safefree(SvPVX(rv)); SvCUR_set(rv, 0); SvLEN_set(rv, 0); } - (void)SvOK_off(rv); + SvOK_off(rv); SvRV(rv) = sv; SvROK_on(rv); |