In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/8d3e0237887e7149be56d17a9448cb465edc5f76?hp=5fea36440bcd8db4c88ae537618e1d53d8702dda>
- Log ----------------------------------------------------------------- commit 8d3e0237887e7149be56d17a9448cb465edc5f76 Author: Karl Williamson <[email protected]> Date: Thu Aug 22 10:16:14 2019 -0600 regcomp.c: Fix wrong limit test Spotted by Hugo van der Sanden in code reading. ----------------------------------------------------------------------- Summary of changes: regcomp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/regcomp.c b/regcomp.c index aba6648da5..d61fd434fe 100644 --- a/regcomp.c +++ b/regcomp.c @@ -23132,7 +23132,7 @@ Perl_parse_uniprop_string(pTHX_ /* If the original input began with 'In' or 'Is', it could be a subroutine * call to a user-defined property instead of a Unicode property name. */ - if ( non_pkg_begin + name_len > 2 + if ( name_len - non_pkg_begin > 2 && name[non_pkg_begin+0] == 'I' && (name[non_pkg_begin+1] == 'n' || name[non_pkg_begin+1] == 's')) { -- Perl5 Master Repository
