In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/5c696bd319ee40ee8ca0a317377f9c7b73d1fa8b?hp=812e2121cb84e726a5a5b5a3a64c6f949426e02f>
- Log ----------------------------------------------------------------- commit 5c696bd319ee40ee8ca0a317377f9c7b73d1fa8b Author: David Mitchell <[email protected]> Date: Mon Jun 24 13:00:25 2019 +0100 honour $PERL_DESTRUCT_LEVEL on non-debug builds This environment variable was previously only checked for on DEBUGGING builds. ----------------------------------------------------------------------- Summary of changes: perl.c | 4 ---- 1 file changed, 4 deletions(-) diff --git a/perl.c b/perl.c index e71ecaf8fc..2e80cfe940 100644 --- a/perl.c +++ b/perl.c @@ -627,7 +627,6 @@ perl_destruct(pTHXx) PERL_WAIT_FOR_CHILDREN; destruct_level = PL_perl_destruct_level; -#if defined(DEBUGGING) || defined(PERL_TRACK_MEMPOOL) { const char * const s = PerlEnv_getenv("PERL_DESTRUCT_LEVEL"); if (s) { @@ -641,16 +640,13 @@ perl_destruct(pTHXx) else i = 0; } -#ifdef DEBUGGING if (destruct_level < i) destruct_level = i; -#endif #ifdef PERL_TRACK_MEMPOOL /* RT #114496, for perl_free */ PL_perl_destruct_level = i; #endif } } -#endif if (PL_exit_flags & PERL_EXIT_DESTRUCT_END) { dJMPENV; -- Perl5 Master Repository
