if(PL_exit_flags & PERL_EXIT_DESTRUCT_END) {
        ...
        if (PL_endav && !PL_minus_c)
            call_list(PL_scopestack_ix, PL_endav);
        ...
    }