diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-18 14:09:25 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-19 09:55:51 +0000 |
| commit | b162af07ec759e1ba6b84569e4963bc5c289d75f (patch) | |
| tree | dae58f745e70011d6b87525617543b26a5ff39fe /gv.c | |
| parent | 9660f4819671f0b9100e5eabfa988ead3e799a1e (diff) | |
| download | perl-b162af07ec759e1ba6b84569e4963bc5c289d75f.tar.gz | |
Refactoring to Sv*_set() macros - patch #5
Message-ID: <20050419000925.GA21640@mccoy.peters.homeunix.org>
Date: Mon, 18 Apr 2005 19:09:25 -0500
p4raw-id: //depot/perl@24248
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -113,7 +113,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) if (SvLEN(gv)) { if (proto) { SvPV_set(gv, NULL); - SvLEN(gv) = 0; + SvLEN_set(gv, 0); SvPOK_off(gv); } else Safefree(SvPVX(gv)); @@ -526,7 +526,7 @@ Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method) */ CvSTASH(cv) = stash; SvPV_set(cv, (char *)name); /* cast to lose constness warning */ - SvCUR(cv) = len; + SvCUR_set(cv, len); return gv; } @@ -1190,7 +1190,7 @@ Perl_newIO(pTHX) /* unless exists($main::{FileHandle}) and defined(%main::FileHandle::) */ if (!(iogv && GvHV(iogv) && HvARRAY(GvHV(iogv)))) iogv = gv_fetchpv("IO::Handle::", TRUE, SVt_PVHV); - SvSTASH(io) = (HV*)SvREFCNT_inc(GvHV(iogv)); + SvSTASH_set(io, (HV*)SvREFCNT_inc(GvHV(iogv))); return io; } @@ -1572,7 +1572,7 @@ Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags) */ SV* newref = newSVsv(tmpRef); SvOBJECT_on(newref); - SvSTASH(newref) = (HV*)SvREFCNT_inc(SvSTASH(tmpRef)); + SvSTASH_set(newref, (HV*)SvREFCNT_inc(SvSTASH(tmpRef))); return newref; } } |