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=a36c99d376cc9316a421a14086dc61c46dd2472b;hp=dea38cf8531e15f29167775fd0c2071ea9cb57eb;hb=3873fbc39d250734131e096da47add0cf601d194;hpb=d2b7e04fb8d40639a353ea53a1957b9872373c8b

diff --git a/src/update.pl b/src/update.pl
index dea38cf..a36c99d 100644
--- a/src/update.pl
+++ b/src/update.pl
@@ -234,7 +234,7 @@ sub patch_regcomp {
  } elsif ($line =~ /FILL_ADVANCE_NODE(_ARG)?\(\s*([^\s,\)]+)/) {
   my $shift = $1 ? 2 : 1;
   push @{$patched_chunks{$file}}, 'COMP_NODE_HOOK';
-  return $line, "    REH_CALL_REGCOMP_HOOK(pRExC_state->rx, ($2) - $shift);\n"
+  return $line, "    REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, ($2) - $shift);\n"
  }
 
  return $line;
@@ -248,7 +248,7 @@ sub patch_regexec {
   return $line, "#include \"re_defs.h\"\n";
  } elsif ($line =~ /^\s*reenter_switch:\s*$/) {
   push @{$patched_chunks{$file}}, 'EXEC_NODE_HOOK';
-  return "\tREH_CALL_REGEXEC_HOOK(rex, scan, reginfo, st);\n", $line;
+  return "\tREH_CALL_EXEC_NODE_HOOK(rex, scan, reginfo, st);\n", $line;
  }
 
  return $line;