From: Vincent Pit <vince@profvince.com>
Date: Sat, 31 Mar 2012 09:45:33 +0000 (+0200)
Subject: Fix the exec hook call on 5.15.5-5.15.9
X-Git-Tag: v0.02~8
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=commitdiff_plain;h=ddc0fff25dec05b52b75b00b1ac6470b4498a6d1

Fix the exec hook call on 5.15.5-5.15.9
---

diff --git a/src/5015005/regexec.c b/src/5015005/regexec.c
index 7c59975..56399b0 100644
--- a/src/5015005/regexec.c
+++ b/src/5015005/regexec.c
@@ -3163,7 +3163,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);
diff --git a/src/5015006/regexec.c b/src/5015006/regexec.c
index 7c59975..56399b0 100644
--- a/src/5015006/regexec.c
+++ b/src/5015006/regexec.c
@@ -3163,7 +3163,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);
diff --git a/src/5015007/regexec.c b/src/5015007/regexec.c
index bf30c2b..b1e5dbe 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_REGEXEC_HOOK(rex, scan, reginfo, st);
       reenter_switch:
 
 	assert(PL_reglastparen == &rex->lastparen);
diff --git a/src/5015008/regexec.c b/src/5015008/regexec.c
index 874e298..98d83da 100644
--- a/src/5015008/regexec.c
+++ b/src/5015008/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_REGEXEC_HOOK(rex, scan, reginfo, st);
       reenter_switch:
 
 	assert(PL_reglastparen == &rex->lastparen);
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);