perl_free() should use PerlMem_free()

p4raw-id: //depot/perl@4015

diff --git a/perl.c b/perl.c
index 4313742..a5816a9 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -560,9 +560,9 @@ void
 perl_free(pTHXx)
 {
 #if defined(PERL_OBJECT)
-    Safefree(this);
+    PerlMem_free(this);
 #else
-    Safefree(aTHXx);
+    PerlMem_free(aTHXx);
 #endif
 }