X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=src%2F5015007%2Fregexec.c;h=1c89d8e69a95befdd548cf2be84522805c322dba;hb=9df8f8d0e7161039f309ff2cc7c3c91367dc1f6e;hp=bf30c2b7c622f76c3b50ec876e5b1ebc49bc08f9;hpb=7b88eb9cbb0c1342a6480820450644708aed019c;p=perl%2Fmodules%2Fre-engine-Hooks.git

diff --git a/src/5015007/regexec.c b/src/5015007/regexec.c
index bf30c2b..1c89d8e 100644
--- a/src/5015007/regexec.c
+++ b/src/5015007/regexec.c
@@ -3173,7 +3173,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
 	    next = NULL;
 	state_num = OP(scan);
 
-	REH_CALL_REGEXEC_HOOK(rex, scan);
+	REH_CALL_EXEC_NODE_HOOK(rex, scan, reginfo, st);
       reenter_switch:
 
 	assert(PL_reglastparen == &rex->lastparen);