From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 8 Jun 2005 20:32:35 +0000 (+0000)
Subject: sv_setsv is allowed to swipe buffers from read only scalars
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=78d1e7216828c407764c451df38627050a590fe2;p=p5sagit%2Fp5-mst-13.2.git

sv_setsv is allowed to swipe buffers from read only scalars

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

diff --git a/sv.c b/sv.c
index b580af2..52f1da3 100644
--- a/sv.c
+++ b/sv.c
@@ -4564,7 +4564,7 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
             }
             else
                 {	/* Passes the swipe test.  */
-                SvPV_set(dstr, SvPVX(sstr));
+                SvPV_set(dstr, SvPVX_mutable(sstr));
                 SvLEN_set(dstr, SvLEN(sstr));
                 SvCUR_set(dstr, SvCUR(sstr));