$tied =~ s///e when FETCH returns a COW

This used to cause an assertion failure, or sometimes ‘Attempt to free
nonexistent shared string’.

All that was required to fix it was the deletion of two cpp lines.

1 files changed, 0 insertions, 2 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 2d93cc14cd..8e91ebd5df 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -328,11 +328,9 @@ PP(pp_substcont)
 		targ = dstr;
 	    }
 	    else {
-#ifdef PERL_OLD_COPY_ON_WRITE
 		if (SvIsCOW(targ)) {
 		    sv_force_normal_flags(targ, SV_COW_DROP_PV);
 		} else
-#endif
 		{
 		    SvPV_free(targ);
 		}