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 /pp.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 'pp.c')
| -rw-r--r-- | pp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4258,7 +4258,7 @@ PP(pp_splice) *dst-- = *src--; } dst = AvARRAY(ary); - SvPVX(ary) = (char*)(AvARRAY(ary) - diff); /* diff is negative */ + SvPV_set(ary, (char*)(AvARRAY(ary) - diff)); /* diff is negative */ AvMAX(ary) += diff; } else { @@ -4295,7 +4295,7 @@ PP(pp_splice) dst = src - diff; Move(src, dst, offset, SV*); } - SvPVX(ary) = (char*)(AvARRAY(ary) - diff);/* diff is positive */ + SvPV_set(ary, (char*)(AvARRAY(ary) - diff));/* diff is positive */ AvMAX(ary) += diff; AvFILLp(ary) += diff; } |