Fix infinite recursion with perl 5.17.[12]

[perl/modules/re-engine-Hooks.git] / src / update.pl

diff --git a/src/update.pl b/src/update.pl
index 97a60b6794d6f93f9142ea1108bc5b67ccd1b2da..e7fe628cf087fd93efb56a05bb5be044ec1e9263 100644 (file)
--- a/src/update.pl
+++ b/src/update.pl
@@ -246,6 +246,9 @@ sub patch_regcomp {
  } elsif ($line =~ /end node insert/) {
   push @{$patched_chunks{$file}}, 'COMP_NODE_HOOK';
   return $line, "    REH_CALL_COMP_NODE_HOOK(pRExC_state->rx, convert);\n";
+ } elsif ($line =~ /&PL_core_reg_engine/) {
+  $line =~ s/&PL_core_reg_engine\b/&reh_regexp_engine/g;
+  return $line;
  }
 
  return $line;