In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/0a185c45d11435c3182b92d9373bd28ab7c386b2?hp=c73002c3b6db7c936ee23d5f5975e2e5cf3c3b72>
- Log -----------------------------------------------------------------
commit 0a185c45d11435c3182b92d9373bd28ab7c386b2
Author: Karl Williamson <pub...@khwilliamson.com>
Date: Wed May 4 09:03:43 2011 -0600
regexec.c: Remvove unnecessary special handling for \xDF
regcomp.c has been changed, so the case that this handled no longer
comes up.
-----------------------------------------------------------------------
Summary of changes:
regexec.c | 11 +++++------
1 files changed, 5 insertions(+), 6 deletions(-)
diff --git a/regexec.c b/regexec.c
index 7587a7d..3dd7ba5 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1447,14 +1447,13 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c,
char *s,
utf8_fold_flags = 0;
goto do_exactf_utf8;
}
+
+ /* Any 'ss' in the pattern should have been replaced by regcomp,
+ * so we don't have to worry here about this single special case
+ * in the Latin1 range */
fold_array = PL_fold_latin1;
folder = foldEQ_latin1;
- /* XXX This uses the full utf8 fold because if the pattern contains
- * 'ss' it could match LATIN_SMALL_LETTER SHARP_S in the string.
- * There could be a new node type, say EXACTFU_SS, which is
- * generated by regcomp only if there is an 'ss', and then every
- * other case could goto do_exactf_non_utf8;*/
- goto do_exactf_utf8;
+ goto do_exactf_non_utf8;
case EXACTF:
if (UTF_PATTERN || utf8_target) {
--
Perl5 Master Repository
