From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 1 Feb 2006 23:38:53 +0000 (+0000)
Subject: Since PERL_COPY_ON_WRITE became PERL_OLD_COPY_ON_WRITE it seems that
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cf5629ad4b7898d5572f5092889a07327a1f828b;p=p5sagit%2Fp5-mst-13.2.git

Since PERL_COPY_ON_WRITE became PERL_OLD_COPY_ON_WRITE it seems that
no-one has been testing it, as there was a const too far.

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

diff --git a/sv.c b/sv.c
index 1de32da..df47226 100644
--- a/sv.c
+++ b/sv.c
@@ -3680,7 +3680,7 @@ S_sv_release_COW(pTHX_ register SV *sv, const char *pvx, STRLEN len, SV *after)
 {
     if (len) { /* this SV was SvIsCOW_normal(sv) */
          /* we need to find the SV pointing to us.  */
-        SV * const current = SV_COW_NEXT_SV(after);
+        SV *current = SV_COW_NEXT_SV(after);
 
         if (current == sv) {
             /* The SV we point to points back to us (there were only two of us