X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fre-engine-Hooks.git;a=blobdiff_plain;f=src%2Fupdate.pl;fp=src%2Fupdate.pl;h=53836074173c9ee5dff477bb602bbd77427f60f1;hp=0517d37462d41b44d90fc06c05034db66a7c3925;hb=be51951333b8f0da55af1243a039e74bb15dedcd;hpb=ddc0fff25dec05b52b75b00b1ac6470b4498a6d1

diff --git a/src/update.pl b/src/update.pl
index 0517d37..5383607 100644
--- a/src/update.pl
+++ b/src/update.pl
@@ -221,6 +221,8 @@ sub patch_regcomp {
 
  if ($line =~ /#\s*include\s+"INTERN\.h"/) {
   return "#include \"re_defs.h\"\n";
+ } elsif ($line =~ /^(\s*)RExC_rxi\s*=\s*ri\s*;\s*$/) {
+  return $line, "$1REH_CALL_COMP_BEGIN_HOOK(pRExC_state->rx);\n";
  } elsif ($line =~ /FILL_ADVANCE_NODE(_ARG)?\(\s*([^\s,\)]+)/) {
   my $shift = $1 ? 2 : 1;
   return $line, "    REH_CALL_REGCOMP_HOOK(pRExC_state->rx, ($2) - $shift);\n"