In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/866a55c14f186222c1cc8b8fb52fb6a90f98621e?hp=9c8a6dc2b06f6e6fe87aaae5c0aeccc13551c2a4>
- Log ----------------------------------------------------------------- commit 866a55c14f186222c1cc8b8fb52fb6a90f98621e Author: Karl Williamson <[email protected]> Date: Fri Jul 14 15:03:51 2017 -0600 locale.c: Add forgotten #if DEBUGGING I pushed the previous commit without actually amending it to include this ----------------------------------------------------------------------- Summary of changes: locale.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/locale.c b/locale.c index 7628b0cd53..d533e13c89 100644 --- a/locale.c +++ b/locale.c @@ -2626,12 +2626,17 @@ Perl_my_strerror(pTHX_ const int errnum) "Any locale change has been done; about to call Strerror\n")); errstr = Strerror(errnum); if (errstr) { + +#ifdef DEBUGGING + if (DEBUG_Lv_TEST) { PerlIO_printf(Perl_debug_log, "Strerror returned; saving a copy: '"); print_bytes_for_locale(errstr, errstr + strlen(errstr), 0); PerlIO_printf(Perl_debug_log, "'\n"); } +#endif + errstr = savepv(errstr); SAVEFREEPV(errstr); } -- Perl5 Master Repository
