This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Add another place to not re-fold
authorKarl Williamson <public@khwilliamson.com>
Sun, 16 Oct 2011 20:09:40 +0000 (14:09 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 18 Oct 2011 03:52:17 +0000 (21:52 -0600)
This adds regrepeat to no keep re-folding to the recent commits

regexec.c

index 0fea67f..6f47ae9 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6033,7 +6033,7 @@ S_regrepeat(pTHX_ const regexp *prog, const regnode *p, I32 max, int depth)
 
     case EXACTF:
     case EXACTFU:
-       utf8_flags = 0;
+       utf8_flags = (UTF_PATTERN) ? FOLDEQ_S2_ALREADY_FOLDED : 0;
 
        /* The comments for the EXACT case above apply as well to these fold
         * ones */