Branch: refs/heads/blead
Home: https://github.com/Perl/perl5
Commit: b9f8f219024dabc77fbe7f48b7230073f5b71a61
https://github.com/Perl/perl5/commit/b9f8f219024dabc77fbe7f48b7230073f5b71a61
Author: Yves Orton <demer...@gmail.com>
Date: 2023-10-11 (Wed, 11 Oct 2023)
Changed paths:
M regexec.c
M t/re/pat_advanced.t
Log Message:
-----------
regexec.c - make find_byclass() work with (*SKIP) and friends
This fixes https://github.com/Perl/perl5/issues/21534
We have an optimisation that applies to patterns starting with a PLUS
style pattern, so that things like /A+B/ do not try to match at every A
when B does not match after the the first attempt. Eg,
"AAAAAABBBBAAAAC"=~/[Aa]+[CD]/ should not try to match at every 'A' in
the first sequence of 'A's. This optimisation is signalled by the
presence of an PREGf_SKIP flag.
The PLUS optimisation did not play nicely with patterns which were doing
a similar task using the (*SKIP) operator. Essentially we need to
disable the former when the latter has been used, or it can get
confused. Consider the case of
"AAAAAABBBBBBBAAAAAC"=~/[Aa]+(?:[Bb]+(*SKIP)(*FAIL)|[CD])/.
The idea is to signal to the regex engine that once "AAAAABBBBBBBBB" is
matched it can continue from after the final 'B'. Because of the way the
PLUS optimizatin is implemented, this advancing of the pointer to the
last B confused things, and it failed to match the final AAAAC sequence.
This patch is somewhat of a bodge, it shouldnt be necessary to inspect
inside of reginfo() after a call to regtry() and it is a bit
counter-intuitive to do so. This patch wraps the check in a macro so
that at least it is somewhat self documenting what it is doing.
