Add a "flags" parameter to sub_op_register()

[perl/modules/Sub-Op.git] / Op.xs

diff --git a/Op.xs b/Op.xs
index ecdac3a3cbfe578bfd3fc47bab22f6e25c41499a..c5be45bd6f33b60a7fd9bec62dbb217d0a3d29be 100644 (file)
--- a/Op.xs
+++ b/Op.xs
@@ -123,7 +123,7 @@ void sub_op_init(sub_op_config_t *c) {
  return;
 }
 
-void sub_op_register(pTHX_ const sub_op_config_t *c) {
+void sub_op_register(pTHX_ const sub_op_config_t *c, U32 flags) {
  SV *key = newSViv(PTR2IV(c->pp));
 
  if (!PL_custom_op_names)