This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl_free() should use PerlMem_free()
[perl5.git] / perl.c
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
 }