Fix compilation for -DPERL_POISON and -DPERL_OLD_COPY_ON_WRITE together.

These have been present since PERL_POISON was added in June 2005 by commit
94010e71b67db040. It seems that no-one has tried compiling with both defined
together.

1 files changed, 2 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index acb66df472..a9ef38cf80 100644
--- a/sv.c
+++ b/sv.c
@@ -4356,7 +4356,7 @@ Perl_sv_setsv_cow(pTHX_ SV *dstr, SV *sstr)
 	if (SvTHINKFIRST(dstr))
 	    sv_force_normal_flags(dstr, SV_COW_DROP_PV);
 	else if (SvPVX_const(dstr))
-	    Safefree(SvPVX_const(dstr));
+	    Safefree(SvPVX_mutable(dstr));
     }
     else
 	new_SV(dstr);
@@ -6160,7 +6160,7 @@ Perl_sv_clear(pTHX_ SV *const orig_sv)
 
 		    SvFAKE_off(sv);
 		} else if (SvLEN(sv)) {
-		    Safefree(SvPVX_const(sv));
+		    Safefree(SvPVX_mutable(sv));
 		}
 	    }
 #else