X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=sub_op.h;h=c594f036e681fb4ad21a9c09d52fed32cf21ef04;hb=c987524f0641ca6a25d5e3072c9d1a2ecef2f57c;hp=20733c1888dbfb2f463fdcdb99deb4f8ab0078be;hpb=6a7b5fad65453cfc8742554cef515b1d7c84443a;p=perl%2Fmodules%2FSub-Op.git

diff --git a/sub_op.h b/sub_op.h
index 20733c1..c594f03 100644
--- a/sub_op.h
+++ b/sub_op.h
@@ -8,12 +8,15 @@ typedef OP *(*sub_op_check_t)(pTHX_ OP *, void *);
 
 typedef struct {
  const char    *name;
- STRLEN         len;
+ STRLEN         namelen;
  Perl_ppaddr_t  pp;
  sub_op_check_t check;
  void          *ud;
 } sub_op_config_t;
 
-void sub_op_register(pTHX_ const sub_op_config_t *c);
+void             sub_op_init    (sub_op_config_t *c);
+void             sub_op_register(pTHX_ const sub_op_config_t *c);
+sub_op_config_t *sub_op_dup     (pTHX_ const sub_op_config_t *c);
+void             sub_op_free    (pTHX_ sub_op_config_t *c);
 
 #endif /* SUB_OP_H */