perldelta: Diagnostics fixups

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index 67048bf..82128a7 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -5593,8 +5593,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
                 if (scan->flags == EXACTL || scan->flags == EXACTFLU8) {
                     _CHECK_AND_WARN_PROBLEMATIC_LOCALE;
                     if (utf8_target
-                        && nextchr >= 0xc4
-                        /* above equivalent to: (nextchr > 0 && UTF8_IS_ABOVE_LATIN1(nextchr) ) */
+                        && UTF8_IS_ABOVE_LATIN1(nextchr)
                         && scan->flags == EXACTL)
                     {
                         /* We only output for EXACTL, as we let the folder