X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=sub_op.h;h=12db02551516e54096a0487ff0b96ca653683a9c;hb=32384f24279ef75bc0b95279c093cf90d8c47195;hp=5dbb320b3618aa8f31e660076cd114ebe3b7eeb5;hpb=b9c3a456f75424383f35cb83000965d76e56d4ed;p=perl%2Fmodules%2FSub-Op.git

diff --git a/sub_op.h b/sub_op.h
index 5dbb320..12db025 100644
--- a/sub_op.h
+++ b/sub_op.h
@@ -9,11 +9,15 @@ typedef OP *(*sub_op_check_t)(pTHX_ OP *, void *);
 typedef struct {
  const char    *name;
  STRLEN         namelen;
+ const char    *proto;
+ STRLEN         protolen;
  Perl_ppaddr_t  pp;
  sub_op_check_t check;
  void          *ud;
 } sub_op_config_t;
 
+#define SUB_OP_REGISTER_STEAL 1
+
 void             sub_op_init    (sub_op_config_t *c);
 void             sub_op_register(pTHX_ const sub_op_config_t *c, U32 flags);
 sub_op_config_t *sub_op_dup     (pTHX_ const sub_op_config_t *c);