From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 22:45:39 +0000 (+0000)
Subject: The old COW code needs to use SvPVX_mutable when doing copy-on-write.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=940132f3fde5cf1c168dc34e3a3fea4e825977d5;p=p5sagit%2Fp5-mst-13.2.git

The old COW code needs to use SvPVX_mutable when doing copy-on-write.

p4raw-id: //depot/perl@24768
---

diff --git a/sv.c b/sv.c
index 52f1da3..f6877f4 100644
--- a/sv.c
+++ b/sv.c
@@ -4541,7 +4541,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
                     /* splice us in between source and next-after-source.  */
                     SV_COW_NEXT_SV_SET(dstr, SV_COW_NEXT_SV(sstr));
                     SV_COW_NEXT_SV_SET(sstr, dstr);
-                    SvPV_set(dstr, SvPVX(sstr));
+                    SvPV_set(dstr, SvPVX_mutable(sstr));
                 } else
 #endif
 		{
@@ -4710,7 +4710,7 @@ Perl_sv_setsv_cow(pTHX_ SV *dstr, SV *sstr)
 	SV_COW_NEXT_SV_SET(dstr, sstr);
     }
     SV_COW_NEXT_SV_SET(sstr, dstr);
-    new_pv = SvPVX(sstr);
+    new_pv = SvPVX_mutable(sstr);
 
   common_exit:
     SvPV_set(dstr, new_pv);