summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-12-16 12:06:46 -0700
committerKarl Williamson <khw@cpan.org>2015-12-17 22:13:58 -0700
commit8c9b4e639b8164433ff657146b42306a354ce3cf (patch)
treedc8275adf6680a1bb9fc0adcd091be5a636bbb18 /regexec.c
parentb3b1cf1722eaa296a49e261c8e670d45491983b5 (diff)
downloadperl-8c9b4e639b8164433ff657146b42306a354ce3cf.tar.gz
regex matching: Don't do unnecessary work
This commit sets a flag at pattern compilation time to indicate if a rare case is present that requires special handling, so that that handling can be avoided unless necessary.
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index 5bcca9dfc9..afe87a5fab 100644
--- a/regexec.c
+++ b/regexec.c
@@ -8751,7 +8751,7 @@ S_reginclass(pTHX_ regexp * const prog, const regnode * const n, const U8* const
&& c < 256
# endif
)))
- || (( flags & ANYOF_LOC_FOLD)
+ || (( flags & ANYOF_ONLY_UTF8_LOC_FOLD_MATCHES)
&& IN_UTF8_CTYPE_LOCALE)))
{
SV* only_utf8_locale = NULL;