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

1 files changed, 2 insertions, 2 deletions

diff --git a/pp_sort.c b/pp_sort.c
index 1bd5719495..380194df2c 100644
--- a/pp_sort.c
+++ b/pp_sort.c
@@ -1748,12 +1748,12 @@ sortcv_stacked(pTHX_ SV *a, SV *b)
 	SV** ary = AvALLOC(av);
 	if (AvARRAY(av) != ary) {
 	    AvMAX(av) += AvARRAY(av) - AvALLOC(av);
-	    SvPVX(av) = (char*)ary;
+	    SvPV_set(av, (char*)ary);
 	}
 	if (AvMAX(av) < 1) {
 	    AvMAX(av) = 1;
 	    Renew(ary,2,SV*);
-	    SvPVX(av) = (char*)ary;
+	    SvPV_set(av, (char*)ary);
 	}
     }
     AvFILLp(av) = 1;