Ticket #4191: patch_perl_matcher_common.patch

.hpp

@@ -732 +732 @@
    {
       // Have we recursed into subexpression "index"?
       // If index == 0 then check for any recursion at all, otherwise for recursion to -index-1.
-      int id = -index-1;
-      if(id >= 10000)
-         id = re.get_data().get_id(id);
-      result = recursion_stack_position && ((recursion_stack[recursion_stack_position-1].id == id) || (index == 0));
+      int idtest = -index-1;
+      if(idtest >= 10000)
+         idtest = re.get_data().get_id(idtest);
+      result = recursion_stack_position && ((recursion_stack[recursion_stack_position-1].id == idtest) || (index == 0));
       pstate = pstate->next.p;
    }
    return result;