develooper Front page | perl.perl5.changes | Postings from October 2019

[perl.git] branch maint-5.30 updated. v5.30.0-54-g3aa09854b2

From:
Steve Hay via perl5-changes
Date:
October 14, 2019 21:56
Subject:
[perl.git] branch maint-5.30 updated. v5.30.0-54-g3aa09854b2
Message ID:
E1iK8KK-00050W-H1@git.dc.perl.space
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 <tony@develop-help.com>
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 <manuel@mausz.at>
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 <khw@cpan.org>
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			<maik@mm-double.de>
 Major S├ębastien			<sebastien.major@crdp.ac-caen.fr>
 Makoto MATSUSHITA		<matusita@ics.es.osaka-u.ac.jp>
 Malcolm Beattie			<mbeattie@sable.ox.ac.uk>
+Manuel Mausz			<manuel@mausz.at>
 Manuel Valente			<mvalente@idealx.com>
 Marc Green			<marcgreen@cpan.org>
 Marc Lehmann			<pcg@goof.com>
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About