perl_free() should use PerlMem_free()

p4raw-id: //depot/perl@4015

1 files changed, 2 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index 4313742871..a5816a94b1 100644
--- 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
 }