In perl.git, the branch maint-5.30 has been updated <https://perl5.git.perl.org/perl.git/commitdiff/3aa09854b2e423326c0630548c4655313d5a36a7?hp=000e22454c2f46e4375a1f1eed26344fcabe2cb1>
- Log ----------------------------------------------------------------- commit 3aa09854b2e423326c0630548c4655313d5a36a7 Author: Tony Cook <[email protected]> Date: Wed Jun 19 11:25:13 2019 +1000 Manuel Mausz is now a perl author (cherry picked from commit f83193f25095f9353c8e34c187184bc25fdadf51) commit 0cf12f9141b0421d5ba8ec9aa40ebc92e4590548 Author: Manuel Mausz <[email protected]> Date: Tue Jun 4 00:29:09 2019 +0200 (perl #134169) mg.c reset endptr after use Perl_grok_atoUV has been changed so endptr constraints the input. Thus we need to reset the endptr after every use. (cherry picked from commit 79e302e6c3f815bf4cb72a5bacc3012595970db9) commit c370a304bd0ff394f6c5f94efbbba3d2da72faa7 Author: Karl Williamson <[email protected]> Date: Wed May 22 14:37:20 2019 -0600 PATCH: [perl #134126] -Dusemymalloc, -Dusethreads This was due to a missing declaration for thread context needed to output a message. (cherry picked from commit 9629b6dc1d6296e0d3a6a5dbfd0f672b4b2021ca) ----------------------------------------------------------------------- Summary of changes: AUTHORS | 1 + malloc.c | 1 + mg.c | 4 +++- 3 files changed, 5 insertions(+), 1 deletion(-) diff --git a/AUTHORS b/AUTHORS index 7cda831b9b..a026a1028d 100644 --- a/AUTHORS +++ b/AUTHORS @@ -771,6 +771,7 @@ Maik Hentsche <[email protected]> Major Sébastien <[email protected]> Makoto MATSUSHITA <[email protected]> Malcolm Beattie <[email protected]> +Manuel Mausz <[email protected]> Manuel Valente <[email protected]> Marc Green <[email protected]> Marc Lehmann <[email protected]> diff --git a/malloc.c b/malloc.c index ed392ee5ba..0c80a0856f 100644 --- a/malloc.c +++ b/malloc.c @@ -1239,6 +1239,7 @@ Perl_malloc(size_t nbytes) * malloc so that pointer subtraction in the same structure is always * well defined */ if (nbytes > PTRDIFF_MAX) { + dTHX; MYMALLOC_WRITE2STDERR("Memory requests are limited to PTRDIFF_MAX" " bytes to prevent possible undefined" " behavior"); diff --git a/mg.c b/mg.c index afe452fc5d..910bbd19cb 100644 --- a/mg.c +++ b/mg.c @@ -3178,7 +3178,8 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) { const char *p = SvPV_const(sv, len); Groups_t *gary = NULL; - const char* endptr = p + len; + const char* p_end = p + len; + const char* endptr = p_end; UV uv; #ifdef _SC_NGROUPS_MAX int maxgrp = sysconf(_SC_NGROUPS_MAX); @@ -3201,6 +3202,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) if (endptr == NULL) break; p = endptr; + endptr = p_end; while (isSPACE(*p)) ++p; if (!*p) -- Perl5 Master Repository
