Convert newSUB() to a macro wrapping Perl_newATTRSUB()

Provide a Perl_newSUB() function in mathoms.c for anyone referencing it by its
full name.

1 files changed, 2 insertions, 0 deletions

diff --git a/op.h b/op.h
index 9a5ec94d08..c011d661f9 100644
--- a/op.h
+++ b/op.h
@@ -852,6 +852,8 @@ one of the OA_* constants from op.h.
 		     ? XopENTRY(Perl_custom_op_xop(aTHX_ o), xop_class) \
 		     : (PL_opargs[(o)->op_type] & OA_CLASS_MASK))
 
+#define newSUB(f, o, p, b)	Perl_newATTRSUB(aTHX_ (f), (o), (p), NULL, (b))
+
 #ifdef PERL_MAD
 #  define MAD_NULL 1
 #  define MAD_PV 2