Split the "custom op" part away

[perl/modules/Sub-Op.git] / sub_op.h

diff --git a/sub_op.h b/sub_op.h
index 6a5d9ed2e821ec431b195838f2025209e711bd78..45ece3f999666aa510275bd54cd57aac785c1f80 100644 (file)
--- a/sub_op.h
+++ b/sub_op.h
@@ -11,7 +11,6 @@ typedef struct {
  STRLEN         namelen;
  const char    *proto;
  STRLEN         protolen;
- Perl_ppaddr_t  pp;
  sub_op_check_t check;
  sub_op_check_t ref;
  void          *ud;
@@ -23,5 +22,6 @@ 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);
 void             sub_op_free    (pTHX_ sub_op_config_t *c);
+OP *             sub_op_study   (const OP *o, OP **last_arg_p, OP **rv2cv_p);
 
 #endif /* SUB_OP_H */