X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1830b3d9c87f8b1473b0a80759846f7a5dccae5a..315f11aa5a6d12fadc6dc03ca3bc26c69af24cb0:/mathoms.c

diff --git a/mathoms.c b/mathoms.c
index ccefceb..32f3215 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -83,6 +83,7 @@ PERL_CALLCONV I32 Perl_my_lstat(pTHX);
 PERL_CALLCONV I32 Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2);
 PERL_CALLCONV char * Perl_sv_collxfrm(pTHX_ SV *const sv, STRLEN *const nxp);
 PERL_CALLCONV bool Perl_sv_2bool(pTHX_ register SV *const sv);
+PERL_CALLCONV CV * Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block);
 
 /* ref() is now a macro using Perl_doref;
  * this version provided for binary compatibility only.
@@ -1555,6 +1556,20 @@ Perl_sv_2bool(pTHX_ register SV *const sv)
 }
 
 
+/*
+=for apidoc custom_op_name
+Return the name for a given custom op. This was once used by the OP_NAME
+macro, but is no longer: it has only been kept for compatibility, and
+should not be used.
+
+=for apidoc custom_op_desc
+Return the description of a given custom op. This was once used by the
+OP_DESC macro, but is no longer: it has only been kept for
+compatibility, and should not be used.
+
+=cut
+*/
+
 const char*
 Perl_custom_op_name(pTHX_ const OP* o)
 {
@@ -1568,6 +1583,12 @@ Perl_custom_op_desc(pTHX_ const OP* o)
     PERL_ARGS_ASSERT_CUSTOM_OP_DESC;
     return XopENTRY(Perl_custom_op_xop(aTHX_ o), xop_desc);
 }
+
+CV *
+Perl_newSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *block)
+{
+    return Perl_newATTRSUB(aTHX_ floor, o, proto, NULL, block);
+}
 #endif /* NO_MATHOMS */
 
 /*