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, 2 deletions

diff --git a/perl.c b/perl.c
index dfd5f83355..96f5b2dba2 100644
--- a/perl.c
+++ b/perl.c
@@ -957,8 +957,7 @@ perl_destruct(pTHXx)
 	    }
 	}
 	/* we know that type >= SVt_PV */
-	SvOOK_off(PL_mess_sv);
-	Safefree(SvPVX(PL_mess_sv));
+	SvPV_free(PL_mess_sv);
 	Safefree(SvANY(PL_mess_sv));
 	Safefree(PL_mess_sv);
 	PL_mess_sv = Nullsv;