This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert RT #131190 patches.
[perl5.git] / regexec.c
index 35b88d7..82128a7 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -5593,7 +5593,6 @@ 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 >= 0 /* guard against negative EOS value in nextchr */
                         && UTF8_IS_ABOVE_LATIN1(nextchr)
                         && scan->flags == EXACTL)
                     {