diff options
| -rw-r--r-- | regexec.c | 3 | ||||
| -rw-r--r-- | t/re/re_tests | 1 |
2 files changed, 3 insertions, 1 deletions
@@ -3223,7 +3223,8 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) "%*s %smatched empty string...%s\n", REPORT_CODE_OFF+depth*2, "", PL_colors[4], PL_colors[5]) ); - break; + if (!trie->jump) + break; } else { DEBUG_EXECUTE_r( PerlIO_printf(Perl_debug_log, diff --git a/t/re/re_tests b/t/re/re_tests index 1c45583f43..66a47cc948 100644 --- a/t/re/re_tests +++ b/t/re/re_tests @@ -1482,4 +1482,5 @@ abc\N{def - c - \\N{NAME} must be resolved by the lexer [\0005] 5\000 y $& 5 [\_] _ y $& _ +(?:(?:)foo|bar|zot|rt78356) foo y $& foo # vim: softtabstop=0 noexpandtab |