In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/98fa38977b839d4721d5eb77d505f6c7841b1fdb?hp=e2ac4e88753491bc5b4b2f8ae307bb01a42a78f8>
- Log ----------------------------------------------------------------- commit 98fa38977b839d4721d5eb77d505f6c7841b1fdb Author: Tony Cook <[email protected]> Date: Mon Jul 28 16:40:49 2014 +1000 avoid passing large backreference numbers back as negative numbers ----------------------------------------------------------------------- Summary of changes: regcomp.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/regcomp.c b/regcomp.c index 24fb0a7..8075010 100644 --- a/regcomp.c +++ b/regcomp.c @@ -11164,10 +11164,10 @@ static I32 S_backref_value(char *p) { const char* endptr; - Size_t val = grok_atou(p, &endptr); - if (endptr == p || endptr == NULL || val > 999999999) + UV val = grok_atou(p, &endptr); + if (endptr == p || endptr == NULL || val > I32_MAX) return I32_MAX; - return val; + return (I32)val; } -- Perl5 Master Repository
