X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=lib%2FSub%2FOp.pm;h=877cf3123c4a64ec15272a76b3ae29773155f60b;hp=6459b04c3b64a6977746d416ee9c17cae833da23;hb=6a7b5fad65453cfc8742554cef515b1d7c84443a;hpb=fa4378c8262b5f0d476bb0af2d52551dc3fe0cc0 diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm index 6459b04..877cf31 100644 --- a/lib/Sub/Op.pm +++ b/lib/Sub/Op.pm @@ -49,13 +49,13 @@ In your XS file : BOOT: { - sub_op_keyword k; - k.name = "reftype"; - k.len = sizeof("reftype")-1; - k.pp = scalar_util_reftype; - k.check = 0; - k.ud = NULL; - sub_op_register(aTHX_ &k); + sub_op_config_t c; + c.name = "reftype"; + c.len = sizeof("reftype")-1; + c.pp = scalar_util_reftype; + c.check = 0; + c.ud = NULL; + sub_op_register(aTHX_ &c); } In your Perl module file :