Add support for the check hook and test multiple keywords

[perl/modules/Sub-Op.git] / lib / Sub / Op.pm

diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm
index dbcdcd2a46ff0582efb085169afdacbc92a50198..a7ad9f9cbd8081eb8fa66833516d5f6bbac6bce5 100644 (file)
--- a/lib/Sub/Op.pm
+++ b/lib/Sub/Op.pm
@@ -52,8 +52,9 @@ In your XS file :
      sub_op_keyword k;
      k.name  = "reftype";
      k.len   = sizeof("reftype")-1;
-     k.check = 0;
      k.pp    = scalar_util_reftype;
+     k.check = 0;
+     k.ud    = NULL;
      sub_op_register(aTHX_ &k);
     }