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 /op.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 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1597,7 +1597,7 @@ S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp) /* Fake up a method call to import */ meth = newSVpvn("import", 6); - (void)SvUPGRADE(meth, SVt_PVIV); + SvUPGRADE(meth, SVt_PVIV); (void)SvIOK_on(meth); { U32 hash; @@ -3064,7 +3064,7 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg) /* Fake up a method call to import/unimport */ meth = aver ? newSVpvn("import",6) : newSVpvn("unimport", 8); - (void)SvUPGRADE(meth, SVt_PVIV); + SvUPGRADE(meth, SVt_PVIV); (void)SvIOK_on(meth); { U32 hash; @@ -5500,7 +5500,7 @@ Perl_ck_fun(pTHX_ OP *o) SV *namesv; targ = pad_alloc(OP_RV2GV, SVs_PADTMP); namesv = PAD_SVl(targ); - (void)SvUPGRADE(namesv, SVt_PV); + SvUPGRADE(namesv, SVt_PV); if (*name != '$') sv_setpvn(namesv, "$", 1); sv_catpvn(namesv, name, len); |