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, 12 insertions, 0 deletions

diff --git a/sv.h b/sv.h
index cf71f03430..869cd422b5 100644
--- a/sv.h
+++ b/sv.h
@@ -842,6 +842,18 @@ in gv.h: */
 		   SvPV_renew(sv, _lEnGtH); \
 		 } STMT_END
 
+#define SvPV_free(sv) \
+	STMT_START { assert(SvTYPE(sv) >= SVt_PV);	\
+		if (SvLEN(sv)) {			\
+		    if(SvOOK(sv)) {			\
+		      Safefree(SvPVX(sv) - SvIVX(sv));	\
+		      SvFLAGS(sv) &= ~SVf_OOK;		\
+		    } else {				\
+		      Safefree(SvPVX(sv));		\
+		    }					\
+		}					\
+	} STMT_END
+
 #define BmRARE(sv)	((XPVBM*)  SvANY(sv))->xbm_rare
 #define BmUSEFUL(sv)	((XPVBM*)  SvANY(sv))->xbm_useful
 #define BmPREVIOUS(sv)	((XPVBM*)  SvANY(sv))->xbm_previous