In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/fb6c5f2362938c24ea11028a5d7c9d9883848e8f?hp=6ec573cf82ef04177ad79214c84036c97565490c>
- Log ----------------------------------------------------------------- commit fb6c5f2362938c24ea11028a5d7c9d9883848e8f Author: Nicholas Clark <[email protected]> Date: Wed Apr 18 07:49:31 2018 +0200 Bump version to 0.25. This release contains only the 1 byte fix for perl RT #132974 The Changes file is still incomplete (see cpan RT #122854) commit 7191e740274fc5ebeb68a1bee813d008e00b4abe Author: Daniel Dragan <[email protected]> Date: Tue Mar 13 23:38:23 2018 -0400 ExtUtils::Constant fix "panic: failed to extend arg stack" "$XS_Constant{$type}" is almost always a 2nd PUSH on stack, but EU::C only extended by 1, not 2. This mistake didn't become visible until the panic assert was added 5.27.2 panic: XSUB Compress::Raw::Bzip2::constant (Bzip2.c) failed to extend arg stack: base=1b13010, sp=1b13020, hwm=1b13018 Numbers in message are from my 64bit perl, so 0x1b13020-0x1b13018=0x8 which is one 64 bit pointer stack slot, which is exactly the mistake that this patch fixes in EU::C. See RT ticket associated with this commit for details. commit 1fb1c55f76997f2e77c982a7169ad53624c93de1 Author: Nicholas Clark <[email protected]> Date: Fri Jun 23 17:06:25 2017 +0200 Bump version to 0.24_50. ----------------------------------------------------------------------- Summary of changes: cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm index 3199ebf755..e6d71f9b10 100644 --- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm +++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant.pm @@ -1,6 +1,6 @@ package ExtUtils::Constant; use vars qw (@ISA $VERSION @EXPORT_OK %EXPORT_TAGS); -$VERSION = '0.24'; +$VERSION = '0.25'; =head1 NAME @@ -272,7 +272,7 @@ EOT $xs .= " case PERL_constant_IS$type:\n"; if (length $XS_Constant{$type}) { $xs .= << "EOT"; - EXTEND(SP, 1); + EXTEND(SP, 2); PUSHs(&PL_sv_undef); $XS_Constant{$type}; EOT -- Perl5 Master Repository
