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 /scope.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 'scope.c')
| -rw-r--r-- | scope.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -845,7 +845,7 @@ Perl_leave_scope(pTHX_ I32 base) if (SvPVX(gv) && SvLEN(gv) > 0) { Safefree(SvPVX(gv)); } - SvPVX(gv) = (char *)SSPOPPTR; + SvPV_set(gv, (char *)SSPOPPTR); SvCUR(gv) = (STRLEN)SSPOPIV; SvLEN(gv) = (STRLEN)SSPOPIV; gp_free(gv); |