[perl.git] branch blead updated. v5.29.10-33-g89f800230b

[Karen Etheridge]

In perl.git, the branch blead has been updated



- Log -
commit 89f800230bb27e9ff9996851c0d37fc107eaef41
Author: Karen Etheridge 
Date:   Sat Apr 27 22:03:13 2019 -0700

sync with cpan release of Devel-PPPort 3.47

---

Summary of changes:
 Porting/Maintainers.pl  |  2 +-
 Porting/exec-bit.txt|  5 +
 dist/Devel-PPPort/Changes   | 10 --
 dist/Devel-PPPort/devel/mkapidoc.sh |  0
 dist/Devel-PPPort/devel/mktodo  |  0
 dist/Devel-PPPort/devel/regenerate  |  0
 dist/Devel-PPPort/devel/scanprov|  0
 dist/Devel-PPPort/soak  |  0
 8 files changed, 14 insertions(+), 3 deletions(-)
 mode change 100644 => 100755 dist/Devel-PPPort/devel/mkapidoc.sh
 mode change 100644 => 100755 dist/Devel-PPPort/devel/mktodo
 mode change 100644 => 100755 dist/Devel-PPPort/devel/regenerate
 mode change 100644 => 100755 dist/Devel-PPPort/devel/scanprov
 mode change 100644 => 100755 dist/Devel-PPPort/soak

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 45095d07df..16c237daa5 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -339,7 +339,7 @@ use File::Glob qw(:case);
 },
 
 'Devel::PPPort' => {
-'DISTRIBUTION' => 'ATOOMIC/Devel-PPPort-3.46.tar.gz',
+'DISTRIBUTION' => 'ETHER/Devel-PPPort-3.47.tar.gz',
 'FILES'=> q[dist/Devel-PPPort],
 'EXCLUDED' => [
 'PPPort.pm',# we use PPPort_pm.PL instead
diff --git a/Porting/exec-bit.txt b/Porting/exec-bit.txt
index 83448f7d28..bb0daee733 100644
--- a/Porting/exec-bit.txt
+++ b/Porting/exec-bit.txt
@@ -14,6 +14,11 @@ cpan/autodie/t/chmod.t
 cpan/CPAN-Meta-YAML/t/tml
 cpan/Test-Harness/t/source_tests/source.sh
 cpan/Test-Harness/t/source_tests/source_args.sh
+dist/Devel-PPPort/devel/mkapidoc.sh
+dist/Devel-PPPort/devel/mktodo
+dist/Devel-PPPort/devel/regenerate
+dist/Devel-PPPort/devel/scanprov
+dist/Devel-PPPort/soak
 installperl
 installman
 makedepend.SH
diff --git a/dist/Devel-PPPort/Changes b/dist/Devel-PPPort/Changes
index c853b1e349..c064c8debc 100644
--- a/dist/Devel-PPPort/Changes
+++ b/dist/Devel-PPPort/Changes
@@ -1,5 +1,11 @@
- 3.46 - 2019-04-20
- 
+Revision history for Devel-PPPort
+
+ 3.47 - 2019-04-27
+
+* re-fix leaky code (used only in tests)
+
+ 3.46 - 2019-04-26
+
 * Fix the isFOO character type classification macros to work properly on
all versions, as follows:
  * Fixed isALNUM, isALPHA, isDIGIT, isIDFIRST, isLOWER, and isUPPER on
diff --git a/dist/Devel-PPPort/devel/mkapidoc.sh 
b/dist/Devel-PPPort/devel/mkapidoc.sh
old mode 100644
new mode 100755
diff --git a/dist/Devel-PPPort/devel/mktodo b/dist/Devel-PPPort/devel/mktodo
old mode 100644
new mode 100755
diff --git a/dist/Devel-PPPort/devel/regenerate 
b/dist/Devel-PPPort/devel/regenerate
old mode 100644
new mode 100755
diff --git a/dist/Devel-PPPort/devel/scanprov b/dist/Devel-PPPort/devel/scanprov
old mode 100644
new mode 100755
diff --git a/dist/Devel-PPPort/soak b/dist/Devel-PPPort/soak
old mode 100644
new mode 100755

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-toke updated. v5.29.10-38-g927b9f1dad

[Karl Williamson]

In perl.git, the branch smoke-me/khw-toke has been updated



- Log -
commit 927b9f1dad354736ab329b5c934eedc49bce1221
Author: Karl Williamson 
Date:   Sat Apr 27 15:56:57 2019 -0600

f

---

Summary of changes:
 toke.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/toke.c b/toke.c
index ac97da00b4..08251aaec9 100644
--- a/toke.c
+++ b/toke.c
@@ -3204,7 +3204,10 @@ S_scan_const(pTHX_ char *start)
  * a '-' would be ambiguous). */
 
 if (off + extra > SvLEN(sv)) {
+STRLEN max_ptr_off = max_ptr - SvPVX(sv);
+
 d = off + SvGROW(sv, off + extra);
+max_ptr = d - off + max_ptr_off;
 }
 
 e = d++;

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-asan deleted. v5.29.10-6-g8118726176

[Karl Williamson]

In perl.git, the branch smoke-me/khw-asan has been deleted



   was  8118726176322f86dbf750b4c9a1091df6b927e2

- Log -
8118726176322f86dbf750b4c9a1091df6b927e2 experimental bad fix for undefined 
behavior, for sisyphus
---

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-133981 deleted. v5.29.9-69-g88e76297d6

[Karl Williamson]

In perl.git, the branch smoke-me/khw-133981 has been deleted



   was  88e76297d60f81247ea942162be6ab1985817f13

- Log -
88e76297d60f81247ea942162be6ab1985817f13 flush stderr immediately
---

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-global_struct deleted. v5.29.6-75-g2382481754

[Karl Williamson]

In perl.git, the branch smoke-me/khw-global_struct has been deleted



   was  2382481754474e1d20f654aaa357d31be29f9281

- Log -
2382481754474e1d20f654aaa357d31be29f9281 randir
---

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-toke created. v5.29.10-37-g2fc646fca9

[Karl Williamson]

In perl.git, the branch smoke-me/khw-toke has been created



at  2fc646fca9b5a73e8d5050c0429ebddf1f0bb4f8 (commit)

- Log -
commit 2fc646fca9b5a73e8d5050c0429ebddf1f0bb4f8
Author: Karl Williamson 
Date:   Sat Apr 27 14:30:02 2019 -0600

S_scan_const: Make sure room for NUL in dest

At the end of  constant, we add a trailing NUL.  This makes sure there's
room for it.  But the code earlier was supposed to have already mad
enough space, so its a bug if there isn't enough space.  So on DEBUGGING
builds, we panic, as we've done before.  But otherwise we can continue
on with no harm having been done.

commit 4023f97cc9abd0be6b304d8a10afd1c1e27e3aee
Author: Karl Williamson 
Date:   Sat Apr 27 14:04:58 2019 -0600

XXX test: PATCH: [perl #134067] heap buffer overflow in lexing

This bug happens under tr///.  In some circumstances, a byte is inserted
in the output that wasn't in the input, and it did not check that there
was space available for this character.  The result could be a write
after the buffer end.

I suspect that this bug has been there all along, and the blamed commit
rearranged things so that it is more likely to happen.

commit 9126f83e1dc0bb6d9b7f594824095f336dd99379
Author: Karl Williamson 
Date:   Sat Apr 27 13:56:39 2019 -0600

S_scan_const() Properly test if need to grow

As we parse the input, creating a string constant, we may have to grow
the destination if it fills up as we go along.  It allocates space in an
SV and populates the string, but it doesn' update the SvCUR until the
end, so in single stepping the debugger through the code, the SV looks
empty until the end.  It turns out that as a result SvEND also doesn't
get updated and still points to the beginning of the string until SvCUR
is finally set.  That means that the test changed by this commit was
always succeeding, because it was using SvEND that didn't get updated,
so it would attempt to grow each time through the loop.  By moving a
couple of statements earlier, and using SvLEN instead, which does always
have the correct value, those extra growth attempts are avoided.

commit f282ad8c4eb6104ec4cd21e0ff4ade5fcb788356
Author: Karl Williamson 
Date:   Fri Apr 26 14:42:37 2019 -0600

PATCH: [perl #134064] Assertion failure in toke.c

The blamed commit simplified some code based on the assumption that
UTF-8 well-formedness had already been verified.  It had an assertion to
verify this.  The test case shows that there is a path, through 'eval',
that bypasses this usual checking.

The checking was based on the assumption that the program started not in
UTF-8, and something like a 'use utf8' would be needed to get it there,
at which a flag would be set that well-formedness should be checked.
But it turns out that an eval (perhaps other things) can already be in
gets parsed separately and so the flag wasn't set even if they are in
UTF-8, so they weren't getting checked.

The solution is a one word change, to initialize the flag to TRUE "'yes,
check" instead of FALSE "no, don't check" in the initialization routine
run at the beginning of lexing a code unit.  This catches eval and
presumably anything else that was being bypassed.

The checking is only actually done if the code being lexed is known to
be in UTF-8.  This will continue to get turned on by the ways it
currently gets turned on, such as 'use utf8'.

commit 2a3677b55bac63bd7f949e174e00fe1e498d0c01
Author: Karl Williamson 
Date:   Fri Apr 26 12:39:53 2019 -0600

perly.c: Fix typo in comment

---

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/khw-toke deleted. v5.29.10-25-g5123af7e4a

[Karl Williamson]

In perl.git, the branch smoke-me/khw-toke has been deleted



   was  5123af7e4adf851adfdd0695d7f6c5dde627f4f9

- Log -
5123af7e4adf851adfdd0695d7f6c5dde627f4f9 l
---

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.10-32-g5c7f6d5ab5

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit 5c7f6d5ab56f336d6550397c0aac5d01282db23b
Author: David Mitchell 
Date:   Sat Apr 27 19:40:19 2019 +0100

bump Typemap.pm version

commit 65d1a6da7e2ffe950372c68c421690d9b17f08b5
Author: David Mitchell 
Date:   Wed Apr 3 14:14:13 2019 +0100

re-fix leak in Devel-PPPort

This the context of this commit (v5.29.10-31-g613175fa07) was
accidentally reverted by v5.29.10-25-gaadf4f9e12, so I'm re-applying it
blead here.

---

The leaky code is only used during test. It creates 3 ops, does various
operations related to linking OpSIBLINGs, then fails to free them.

commit 9ff268cd9d5f56cfcb22777315fbf73ef76cc250
Author: David Mitchell 
Date:   Sat Apr 27 18:15:48 2019 +0100

fix t/porting/bench.t

This tests the outputs of various runs of bench.pl and checks that the
output it gets matches various templates. Parts of these templates of
these formats are, e.g.

NNN.NN NNN.NN NNN.NN

which are pre-processed into a regex that matches e.g.
(\d+\.\d\d|-)
i.e. match either a two-sig-diff number of a '-' - that latter
indicating no valid result.

However, once, space-skipping is taken into account, the combination of
skipping any spaces before the number, and expecting 3 blank spaces
before the '-' means that '-' fields never matched.

Fix this by simplifying the generated regex.

See http://nntp.perl.org/group/perl.perl5.porters/254590

---

Summary of changes:
 dist/Devel-PPPort/parts/inc/misc | 5 +
 ext/XS-Typemap/Typemap.pm| 2 +-
 t/porting/bench.t| 4 +---
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc
index 3fcc45b5d6..2bd2dcfb02 100644
--- a/dist/Devel-PPPort/parts/inc/misc
+++ b/dist/Devel-PPPort/parts/inc/misc
@@ -578,6 +578,7 @@ OpSIBLING_tests()
PREINIT:
OP *x;
OP *kid;
+   OP *middlekid;
OP *lastkid;
int count = 0;
int failures = 0;
@@ -601,6 +602,7 @@ OpSIBLING_tests()
kid = OpSIBLING(kid);
lastkid = kid;
}
+middlekid = OpSIBLING(x);
 
/* Should now have a sibling */
if (! OpHAS_SIBLING(x) || ! OpSIBLING(x) ) {
@@ -644,6 +646,9 @@ OpSIBLING_tests()
failures++; warn("Op should have had a sib after 
maybesibset");
}
 
+op_free(lastkid);
+op_free(middlekid);
+op_free(x);
RETVAL = failures;
OUTPUT:
RETVAL
diff --git a/ext/XS-Typemap/Typemap.pm b/ext/XS-Typemap/Typemap.pm
index 9871415319..320e9b8941 100644
--- a/ext/XS-Typemap/Typemap.pm
+++ b/ext/XS-Typemap/Typemap.pm
@@ -34,7 +34,7 @@ to the test script.
 use parent qw/ Exporter /;
 require XSLoader;
 
-our $VERSION = '0.16';
+our $VERSION = '0.17';
 
 our @EXPORT = (qw/
   T_SV
diff --git a/t/porting/bench.t b/t/porting/bench.t
index 7c137c1ded..9d2ab87690 100644
--- a/t/porting/bench.t
+++ b/t/porting/bench.t
@@ -77,9 +77,7 @@ my %format_qrs;
 "("
 . "\\s*-?\\d+\\."
 . "\\d" x $l
-."|\\s{"
-. ($l + 1)
-. ",}-)"
+."|\\s*-)"
}ge;
 
 # convert run of space chars into ' +' or ' *'

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.10-29-gd7128eb1c5

[Dave Mitchell]

In perl.git, the branch blead has been updated



- Log -
commit d7128eb1c501bb76ea7507ab3a119ad7c1150820
Author: David Mitchell 
Date:   Sat Apr 27 15:55:20 2019 +0100

Typemap.xs: avoid leak

The code was doing Safefree(in[i++]) in a loop,
but Safefree() is a macro which may evaluate its arg multiple times,
causing to i to get multipally incremented and thus skipping over some
items that need freeing.

This module is only used for build and test and isn't isn't installed,
so this fix is for the benefit of smokers rather than end users.

---

Summary of changes:
 ext/XS-Typemap/Typemap.xs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ext/XS-Typemap/Typemap.xs b/ext/XS-Typemap/Typemap.xs
index 16731b1a01..1c54d1ad1b 100644
--- a/ext/XS-Typemap/Typemap.xs
+++ b/ext/XS-Typemap/Typemap.xs
@@ -203,9 +203,9 @@ XS_unpack_anotherstructPtrPtr(SV *in)
 void
 XS_release_anotherstructPtrPtr(anotherstruct **in)
 {
-unsigned int i = 0;
-while (in[i] != NULL)
-Safefree(in[i++]);
+unsigned int i;
+for (i = 0; in[i] != NULL; i++)
+Safefree(in[i]);
 Safefree(in);
 }
 

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/jkeenan/rt133958-revert-a6afdf72cd deleted. v5.29.10-24-g78e13bf2e4

[James Keenan via perl5-changes]

In perl.git, the branch smoke-me/jkeenan/rt133958-revert-a6afdf72cd has been 
deleted



   was  78e13bf2e4f89e1577cf41c21f513103aad53f62

- Log -
78e13bf2e4f89e1577cf41c21f513103aad53f62 Revert "Update Test-Simple to CPAN 
version 1.302162"
---

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.10-28-gb14d03deb6

[H.Merijn Brand]

In perl.git, the branch blead has been updated



- Log -
commit b14d03deb61a5721e9afcd38b21772b91ad9309a
Author: H.Merijn Brand 
Date:   Sat Apr 27 12:46:00 2019 +0200

Two more e-mail addresses for me

---

Summary of changes:
 Porting/checkAUTHORS.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl
index d528517259..a00d89da46 100755
--- a/Porting/checkAUTHORS.pl
+++ b/Porting/checkAUTHORS.pl
@@ -453,6 +453,8 @@ jesse   
jesse\100bestpractical.com
 +   jesse\100fsck.com
 +   jesse\100perl.org
 merijn  h.m.brand\100xs4all.nl
++   h.m.brand\100procura.nl
++   merijn.brand\100procura.nl
 +   h.m.brand\100hccnet.nl
 +   merijn\100l1.procura.nl
 +   merijn\100a5.(none)

-- 
Perl5 Master Repository

[perl.git] branch smoke-me/ilmari/array-index-out-of-range updated. v5.29.10-27-g3a2a91c58a

[Dagfinn Ilmari Mannsåker]

In perl.git, the branch smoke-me/ilmari/array-index-out-of-range has been 
updated



- Log -
commit 3a2a91c58a2565763dd556e0caee294b452e7a1d
Author: Dagfinn Ilmari Mannsåker 
Date:   Sat Apr 27 11:01:51 2019 +0100

Unconst the keyname argument to varname()

When used as an array index, we may end up coercing it to an integer.

---

Summary of changes:
 embed.fnc | 2 +-
 proto.h   | 2 +-
 sv.c  | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/embed.fnc b/embed.fnc
index 45597f67b6..2f43283ec0 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2689,7 +2689,7 @@ poM   |void   |sv_kill_backrefs   |NN SV *const 
sv|NULLOK AV *const av
 
 #if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C)
 pR |SV *   |varname|NULLOK const GV *const gv|const char gvtype \
-   |PADOFFSET targ|NULLOK const SV *const keyname \
+   |PADOFFSET targ|NULLOK SV *const keyname \
|SSize_t aindex|int subscript_type
 #endif
 
diff --git a/proto.h b/proto.h
index 0f8feed187..8c84ab0d4e 100644
--- a/proto.h
+++ b/proto.h
@@ -6043,7 +6043,7 @@ STATIC void   S_unreferenced_to_tmp_stack(pTHX_ AV 
*const unreferenced);
 #  endif
 #endif
 #if defined(PERL_IN_SV_C) || defined (PERL_IN_OP_C)
-PERL_CALLCONV SV * Perl_varname(pTHX_ const GV *const gv, const char 
gvtype, PADOFFSET targ, const SV *const keyname, SSize_t aindex, int 
subscript_type)
+PERL_CALLCONV SV * Perl_varname(pTHX_ const GV *const gv, const char 
gvtype, PADOFFSET targ, SV *const keyname, SSize_t aindex, int subscript_type)
__attribute__warn_unused_result__;
 
 #endif
diff --git a/sv.c b/sv.c
index 16028f43f5..9961a5f09c 100644
--- a/sv.c
+++ b/sv.c
@@ -16167,7 +16167,7 @@ S_find_array_subscript(pTHX_ const AV *const av, const 
SV *const val)
 
 SV*
 Perl_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ,
-   const SV *const keyname, SSize_t aindex, int subscript_type)
+SV *const keyname, SSize_t aindex, int subscript_type)
 {
 
 SV * const name = sv_newmortal();

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.10-27-gf102582482

[Aaron Crane]

In perl.git, the branch blead has been updated



- Log -
commit f102582482e667f42f535dad72fb44d2d7decd93
Author: Aaron Crane 
Date:   Sat Apr 27 10:40:07 2019 +0100

Document that local-on-negative-array-index is wildly surprising

---

Summary of changes:
 pod/perlsub.pod | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pod/perlsub.pod b/pod/perlsub.pod
index cea60a5dd5..4571cbcc21 100644
--- a/pod/perlsub.pod
+++ b/pod/perlsub.pod
@@ -973,7 +973,9 @@ Perl will print
 The array has 6 elements: 0, 1, 2, undef, undef, 5
 
 The behavior of local() on non-existent members of composite
-types is subject to change in future.
+types is subject to change in future. The behavior of local()
+on array elements specified using negative indexes is particularly
+surprising, and is very likely to change.
 
 =head3 Localized deletion of elements of composite types
 X X X X

-- 
Perl5 Master Repository

[perl.git] branch blead updated. v5.29.10-26-g73d55174d6

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated



- Log -
commit 73d55174d6db78ea85ed8b75e10b6f181d7b82cc
Author: Chris 'BinGOs' Williams 
Date:   Sat Apr 27 09:31:36 2019 +0100

CBuilder is 0.280231 on the CPANs

---

Summary of changes:
 Porting/Maintainers.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index cee5897b8c..45095d07df 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -426,7 +426,7 @@ use File::Glob qw(:case);
 },
 
 'ExtUtils::CBuilder' => {
-'DISTRIBUTION' => 'AMBS/ExtUtils-CBuilder-0.280230.tar.gz',
+'DISTRIBUTION' => 'AMBS/ExtUtils-CBuilder-0.280231.tar.gz',
 'FILES'=> q[dist/ExtUtils-CBuilder],
 'EXCLUDED' => [
 qw(README.mkdn),

-- 
Perl5 Master Repository