diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-04-16 06:05:02 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-18 12:18:20 +0000 |
| commit | f880fe2f705a50a69328065c7b46fe16e2c252e8 (patch) | |
| tree | b6416494bb1c7d69a0aa108e470892dd09a6f3c3 /gv.c | |
| parent | bfe08c74b6c277925a0a4c6d707ff24113ccca13 (diff) | |
| download | perl-f880fe2f705a50a69328065c7b46fe16e2c252e8.tar.gz | |
Refactoring to Sv*_set() macros - patch #4
Message-ID: <20050416160502.GA26957@mccoy.peters.homeunix.org>
plus fix to Perl_rvpv_dup assigning to an RV with SvPVX
p4raw-id: //depot/perl@24239
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -112,7 +112,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi) sv_upgrade((SV*)gv, SVt_PVGV); if (SvLEN(gv)) { if (proto) { - SvPVX(gv) = NULL; + SvPV_set(gv, NULL); SvLEN(gv) = 0; SvPOK_off(gv); } else @@ -525,7 +525,7 @@ Perl_gv_autoload4(pTHX_ HV *stash, const char *name, STRLEN len, I32 method) * pass along the same data via some unused fields in the CV */ CvSTASH(cv) = stash; - SvPVX(cv) = (char *)name; /* cast to lose constness warning */ + SvPV_set(cv, (char *)name); /* cast to lose constness warning */ SvCUR(cv) = len; return gv; } |