Tentative fix for #227. (#230)

Fixes #227.
2024-11-06 09:20:07 +00:00
parent bd0e76f42f
commit 9a8d2b13a3
3 changed files with 24 additions and 1 deletions
--- a/include/boost/regex/v5/perl_matcher_non_recursive.hpp
+++ b/include/boost/regex/v5/perl_matcher_non_recursive.hpp
@ -1204,7 +1204,10 @@ bool perl_matcher<BidiIterator, Allocator, traits>::skip_until_paren(int index,
      else if(pstate->type == syntax_element_startmark)
      {
         int idx = static_cast<const re_brace*>(pstate)->index;
-         pstate = pstate->next.p;
+         if(idx > 0)
+            match_startmark();
+         else
+            pstate = pstate->next.p;
         skip_until_paren(idx, false);
         continue;
      }