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 (file)
--- 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