Branch: refs/heads/yves/fix_accept
Home: https://github.com/Perl/perl5
Commit: bc3e24ef8286d6151eebe3c712905c2d7c9c5bd8
https://github.com/Perl/perl5/commit/bc3e24ef8286d6151eebe3c712905c2d7c9c5bd8
Author: Yves Orton <[email protected]>
Date: 2022-03-12 (Sat, 12 Mar 2022)
Changed paths:
M regcomp.c
M regexec.c
M t/re/re_tests
Log Message:
-----------
regexp.c, regcomp.c: Fix up ACCEPT in a variety of ways. (WIP)
Sample code showing the bug. Removing the '+' works, but with the plus
it goes horribly wrong.
./perl -Ilib -Mre=debug -e'CORE::say "ABDE" =~ /(A (A|B(*ACCEPT)|C)+ D)(E)/x ?
"yes: <$1-$2>" : "no";'
Needs tests. Pushing this purely for Karl to review.