make EMBEDMYMALLOC the default and provide PERL_POLLUTE_MALLOC to let

[perl5.git] / sv.c

diff --git a/sv.c b/sv.c
index 2dea64f..be8870f 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -603,7 +603,7 @@ more_xpv(void)
 
 #ifdef PURIFY
 #  define my_safemalloc(s) safemalloc(s)
-#  define my_safefree(s) free(s)
+#  define my_safefree(s) safefree(s)
 #else
 STATIC void* 
 my_safemalloc(MEM_SIZE size)