X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=Op.xs;h=c5be45bd6f33b60a7fd9bec62dbb217d0a3d29be;hp=ecdac3a3cbfe578bfd3fc47bab22f6e25c41499a;hb=b9c3a456f75424383f35cb83000965d76e56d4ed;hpb=c987524f0641ca6a25d5e3072c9d1a2ecef2f57c diff --git a/Op.xs b/Op.xs index ecdac3a..c5be45b 100644 --- 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)