From 8d3e0237887e7149be56d17a9448cb465edc5f76 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 22 Aug 2019 10:16:14 -0600 Subject: [PATCH] regcomp.c: Fix wrong limit test MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Spotted by Hugo van der Sanden in code reading. Signed-off-by: Petr Písař --- 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')) { -- 2.21.0