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 /mg.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 'mg.c')
-rw-r--r-- | mg.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -208,7 +208,7 @@ Perl_mg_get(pTHX_ SV *sv) if (SvREFCNT(sv) == 1) { /* We hold the last reference to this SV, which implies that the SV was deleted as a side effect of the routines we called. */ - (void)SvOK_off(sv); + SvOK_off(sv); } return 0; } @@ -695,7 +695,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) case '\023': /* ^S */ if (*(mg->mg_ptr+1) == '\0') { if (PL_lex_state != LEX_NOTPARSING) - (void)SvOK_off(sv); + SvOK_off(sv); else if (PL_in_eval) sv_setiv(sv, PL_in_eval & ~(EVAL_INREQUIRE)); else @@ -1688,7 +1688,7 @@ Perl_magic_getpos(pTHX_ SV *sv, MAGIC *mg) return 0; } } - (void)SvOK_off(sv); + SvOK_off(sv); return 0; } @@ -1861,7 +1861,7 @@ Perl_magic_getvec(pTHX_ SV *sv, MAGIC *mg) SV *lsv = LvTARG(sv); if (!lsv) { - (void)SvOK_off(sv); + SvOK_off(sv); return 0; } @@ -1968,7 +1968,7 @@ Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg) Perl_croak(aTHX_ "panic: magic_killbackrefs"); /* XXX Should we check that it hasn't changed? */ SvRV(svp[i]) = 0; - (void)SvOK_off(svp[i]); + SvOK_off(svp[i]); SvWEAKREF_off(svp[i]); svp[i] = Nullsv; } |