This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/safefree()/Safefree() in a few places
[perl5.git] / op.c
diff --git a/op.c b/op.c
index 63fe245..dac9910 100644 (file)
--- a/op.c
+++ b/op.c
@@ -16671,9 +16671,9 @@ custom_op_register_free(pTHX_ SV *sv, MAGIC *mg)
 
     PERL_UNUSED_ARG(mg);
     xop = INT2PTR(XOP *, SvIV(sv));
-    safefree((void*)xop->xop_name);
-    safefree((void*)xop->xop_desc);
-    safefree(xop);
+    Safefree((void*)xop->xop_name);
+    Safefree((void*)xop->xop_desc);
+    Safefree(xop);
     return 0;
 }