Add a new macro SvPV_free() which undoes OOK and free()s the PVX(),

becase there's a lot of code around that calls SvOOK_off(), memmov()s
the buffer, then promptly free()s it. So avoid the needless memmov().

p4raw-id: //depot/perl@24348

1 files changed, 1 insertions, 3 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 2db8d7e051..783a59a7b5 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -240,9 +240,7 @@ PP(pp_substcont)
 	    } else
 #endif
 	    {
-		SvOOK_off(targ);
-		if (SvLEN(targ))
-		    Safefree(SvPVX(targ));
+		SvPV_free(targ);
 	    }
 	    SvPV_set(targ, SvPVX(dstr));
 	    SvCUR_set(targ, SvCUR(dstr));