In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8b78e93627afc5201875e37a37a7b27874b874c5?hp=9506e94549891cb5a05414c9f66deab201a54b89>
- Log ----------------------------------------------------------------- commit 8b78e93627afc5201875e37a37a7b27874b874c5 Author: Tony Cook <[email protected]> Date: Sun Feb 12 08:53:58 2017 +1100 (perl #126203) build issues helps to test builds with the right options... ----------------------------------------------------------------------- Summary of changes: sv.c | 2 +- util.c | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/sv.c b/sv.c index 61bf3e10c9..472d69c4e5 100644 --- a/sv.c +++ b/sv.c @@ -12882,7 +12882,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p elen = quadmath_snprintf(PL_efloatbuf, PL_efloatsize, qfmt, nv); if ((IV)elen == -1) { - if (qfmt != qptr) + if (qfmt != ptr) SAVEFREEPV(qfmt); Perl_croak_nocontext("panic: quadmath_snprintf failed, format \"%s\"", qfmt); } diff --git a/util.c b/util.c index a822969503..f119f3cd3d 100644 --- a/util.c +++ b/util.c @@ -5239,8 +5239,10 @@ Perl_my_snprintf(char *buffer, const Size_t len, const char *format, ...) /* If the format looked promising, use it as quadmath. */ retval = quadmath_snprintf(buffer, len, qfmt, va_arg(ap, NV)); if (retval == -1) { - if (qfmt != format) + if (qfmt != format) { + dTHX; SAVEFREEPV(qfmt); + } Perl_croak_nocontext("panic: quadmath_snprintf failed, format \"%s\"", qfmt); } quadmath_valid = TRUE; -- Perl5 Master Repository
