As Perl_magic_setbm() and Perl_magic_setfm() aren't in the public API,

they can just go.

p4raw-id: //depot/perl@32790

1 files changed, 0 insertions, 12 deletions

diff --git a/mathoms.c b/mathoms.c
index ff4a2a0350..9e1c5469d1 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1338,18 +1338,6 @@ Perl_newHV(pTHX)
     return hv;
 }
 
-int
-Perl_magic_setbm(pTHX_ SV *sv, MAGIC *mg)
-{
-    return Perl_magic_setregexp(aTHX_ sv, mg);
-}
-
-int
-Perl_magic_setfm(pTHX_ SV *sv, MAGIC *mg)
-{
-    return Perl_magic_setregexp(aTHX_ sv, mg);
-}
-
 #endif /* NO_MATHOMS */
 
 /*