In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b173165cb2425ea00a041490534260cd10909456?hp=9a3da3ad91578c710ccb88f36e117c5a4cb0f7d1>
- Log ----------------------------------------------------------------- commit b173165cb2425ea00a041490534260cd10909456 Author: Father Chrysostomos <[email protected]> Date: Thu Dec 4 22:41:02 2014 -0800 Restore profile dump under PERL_DESTRUCT_LEVEL $ ./perl -Ilib -DP -e0 filter_add func 1000dfa20 () filter_read 0: via function 7f8fd302fe88 () filter_read 0: via function 7f8fd302fe88 () filter_del func 1000dfa20 EXECUTING... 1 nextstate 1 enter 1 leave $ PERL_DESTRUCT_LEVEL=2 ./perl -Ilib -DP -e0 filter_add func 107b81a20 () filter_read 0: via function 7f81e882fea0 () filter_read 0: via function 7f81e882fea0 () filter_del func 107b81a20 EXECUTING... The list of ops executed is omitted if I set PERL_DESTRUCT_LEVEL=2. This was probably broken by bf9cdc68d2. ----------------------------------------------------------------------- Summary of changes: perl.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl.c b/perl.c index b45f280..a238fb4 100644 --- a/perl.c +++ b/perl.c @@ -1290,10 +1290,11 @@ perl_destruct(pTHXx) TAINTING_set(FALSE); TAINT_WARN_set(FALSE); PL_hints = 0; /* Reset hints. Should hints be per-interpreter ? */ - PL_debug = 0; DEBUG_P(debprofdump()); + PL_debug = 0; + #ifdef USE_REENTRANT_API Perl_reentrant_free(aTHX); #endif -- Perl5 Master Repository
