Add preliminary support for hooking reference constructors

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

diff --git a/sub_op.h b/sub_op.h
index 12db02551516e54096a0487ff0b96ca653683a9c..6a5d9ed2e821ec431b195838f2025209e711bd78 100644 (file)
--- a/sub_op.h
+++ b/sub_op.h
@@ -13,6 +13,7 @@ typedef struct {
  STRLEN         protolen;
  Perl_ppaddr_t  pp;
  sub_op_check_t check;
+ sub_op_check_t ref;
  void          *ud;
 } sub_op_config_t;