This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Make sure /di nodes begining in 's' are EXACTF
authorKarl Williamson <khw@cpan.org>
Fri, 30 Nov 2018 16:31:46 +0000 (09:31 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 8 Dec 2018 04:12:16 +0000 (21:12 -0700)
commit127a194773690138ef2e74691af748a925a2f47a
treedc9260fe1b88415dc5ee8af532e30f6341c567e8
parent0f50a8540199a0310ba0bc87a1aec98bb644c1a7
regcomp.c: Make sure /di nodes begining in 's' are EXACTF

This is defensive coding.  The previous commit changed things so under
/di a node ending in [Ss] doesn't get made an EXACTFU.  This commit does
the same for nodes that begin with [Ss].  This isn't actually necessary
as one needs two EXACTFU nodes in a row for the problem to occur, and
the previous commit appears to remove the possibility for the first node
being an EXACTFU.  But I'm leery of relying on this.  So this commit
makes sure that a node beginning with 'S' or 's' under /di remains
EXACTF
regcomp.c