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, 1 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 00a7da2305..ba0a9a3d86 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2452,7 +2452,7 @@ marked_upgrade(pTHX_ SV *sv, tempsym_t *sym_ptr) {
     }
     if (SvLEN(sv) != 0)
 	Safefree(from_start);
-    SvPVX(sv) = to_start;
+    SvPV_set(sv, to_start);
     SvCUR(sv) = to_ptr - to_start;
     SvLEN(sv) = len;
     SvUTF8_on(sv);