Fix infinite recursion with perl 5.17.[12]

[perl/modules/re-engine-Hooks.git] / re_defs.h

diff --git a/re_defs.h b/re_defs.h
index b9e1ac2536ce05ba688b2e03a0c276833b411558..d51eeb8b9db73fbd2642eaf2f54cb4e65b0337e9 100644 (file)
--- a/re_defs.h
+++ b/re_defs.h
@@ -1,6 +1,8 @@
+EXTERN_C const struct regexp_engine reh_regexp_engine;
+
 EXTERN_C void reh_call_comp_begin_hook(pTHX_ regexp *);
-EXTERN_C void reh_call_comp_hook(pTHX_ regexp *, regnode *);
-EXTERN_C void reh_call_exec_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
+EXTERN_C void reh_call_comp_node_hook(pTHX_ regexp *, regnode *);
+EXTERN_C void reh_call_exec_node_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
 
 #define REH_CALL_COMP_BEGIN_HOOK(a)         reh_call_comp_begin_hook(aTHX_ (a))
 #define REH_CALL_COMP_NODE_HOOK(a, b)       reh_call_comp_node_hook(aTHX_ (a), (b))