| Subject: | [PATCH] METHOP support |
See attachment.
| Subject: | open_D3bCB1Nq.txt |
diff -rup Function-Parameters-1.0602-mArG65-orig/Parameters.xs Function-Parameters-1.0602-mArG65/Parameters.xs
--- Function-Parameters-1.0602-mArG65-orig/Parameters.xs 2014-10-19 21:14:36.000000000 -0700
+++ Function-Parameters-1.0602-mArG65/Parameters.xs 2014-11-23 22:58:32.000000000 -0800
@@ -77,6 +77,10 @@ WARNINGS_ENABLE
#define IF_HAVE_PERL_5_19_4(YES, NO) NO
#endif
+#ifndef newMETHOP
+# define newMETHOP newUNOP
+#endif
+
#define MY_PKG "Function::Parameters"
@@ -806,7 +810,8 @@ static OP *mktypecheck(pTHX_ const SV *d
? newDEFSVOP()
: my_var(aTHX_ 0, padoff)
);
- args = op_append_elem(OP_LIST, args, newUNOP(OP_METHOD, 0, mkconstpvs("get_message")));
+ args = op_append_elem(OP_LIST, args,
+ newMETHOP(OP_METHOD, 0, mkconstpvs("get_message")));
msg = args;
msg->op_type = OP_ENTERSUB;
@@ -832,7 +837,8 @@ static OP *mktypecheck(pTHX_ const SV *d
? newDEFSVOP()
: my_var(aTHX_ 0, padoff)
);
- args = op_append_elem(OP_LIST, args, newUNOP(OP_METHOD, 0, mkconstpvs("check")));
+ args = op_append_elem(OP_LIST, args,
+ newMETHOP(OP_METHOD, 0, mkconstpvs("check")));
chk = args;
chk->op_type = OP_ENTERSUB;