diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-06 18:08:50 -0500 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2005-06-07 08:18:59 +0000 |
| commit | 862a34c634844bb3ea22e5f44bdaf2e973831a89 (patch) | |
| tree | 77292e7d3d639e71bc2aca9df160653ecea15005 /toke.c | |
| parent | c158a4fd68e274329d9ffd7198cb9eb1b21b0dfe (diff) | |
| download | perl-862a34c634844bb3ea22e5f44bdaf2e973831a89.tar.gz | |
Unvoid SvUPGRADE
Message-ID: <20050607040850.GA7033@petdance.com>
p4raw-id: //depot/perl@24717
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1027,7 +1027,7 @@ S_force_version(pTHX_ char *s, int guessing) version = yylval.opval; ver = cSVOPx(version)->op_sv; if (SvPOK(ver) && !SvNIOK(ver)) { - (void)SvUPGRADE(ver, SVt_PVNV); + SvUPGRADE(ver, SVt_PVNV); SvNV_set(ver, str_to_version(ver)); SvNOK_on(ver); /* hint that it is a version */ } @@ -2150,7 +2150,7 @@ Perl_filter_add(pTHX_ filter_t funcp, SV *datasv) PL_rsfp_filters = newAV(); if (!datasv) datasv = NEWSV(255,0); - (void)SvUPGRADE(datasv, SVt_PVIO); + SvUPGRADE(datasv, SVt_PVIO); u.filter = funcp; IoANY(datasv) = u.iop; /* stash funcp into spare field */ IoFLAGS(datasv) |= IOf_FAKE_DIRP; |