X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2F5015009%2Fregexec.c;h=09ab948a01e5104fe3446cd81b9cd7b1c8f1f62f;hp=9cd5e7522f349a24fb3a7cee5f764a4c57a460a2;hb=ddc0fff25dec05b52b75b00b1ac6470b4498a6d1;hpb=303060616fe3ecc18280f0c217e1b3c102a6cf08

diff --git a/src/5015009/regexec.c b/src/5015009/regexec.c
index 9cd5e75..09ab948 100644
--- a/src/5015009/regexec.c
+++ b/src/5015009/regexec.c
@@ -3176,7 +3176,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog)
 	    next = NULL;
 	state_num = OP(scan);
 
-	REH_CALL_REGEXEC_HOOK(rex, scan);
+	REH_CALL_REGEXEC_HOOK(rex, scan, reginfo, st);
       reenter_switch:
 
 	assert(PL_reglastparen == &rex->lastparen);