In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ca7eb79a236b41b7722c6800527f95cd76843eed?hp=e6a172f358c0f48c4b744dbd5e9ef6ff0b4ff289>
- Log ----------------------------------------------------------------- commit ca7eb79a236b41b7722c6800527f95cd76843eed Author: Yves Orton <[email protected]> Date: Sun Apr 23 11:53:00 2017 +0200 make fix for #131190 EBCDIC safe ----------------------------------------------------------------------- Summary of changes: regexec.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/regexec.c b/regexec.c index 67048bffc1..35b88d7ece 100644 --- a/regexec.c +++ b/regexec.c @@ -5593,8 +5593,8 @@ 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) ) */ + && nextchr >= 0 /* guard against negative EOS value in nextchr */ + && UTF8_IS_ABOVE_LATIN1(nextchr) && scan->flags == EXACTL) { /* We only output for EXACTL, as we let the folder -- Perl5 Master Repository
