From 7bff8c334b79055a65ea37cb51de6d9629880b6c Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 17 Nov 2010 08:34:52 +0000 Subject: Convert newSUB() to a macro wrapping Perl_newATTRSUB() Provide a Perl_newSUB() function in mathoms.c for anyone referencing it by its full name. --- op.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'op.h') 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 -- cgit v1.2.1