In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c3b19b5c6db555d96caf73d7810b391045c5fb7c?hp=f837477cd1460eda104bacd7f162d25d5254563d>
- Log ----------------------------------------------------------------- commit c3b19b5c6db555d96caf73d7810b391045c5fb7c Author: David Mitchell <[email protected]> Date: Tue Oct 19 23:36:53 2010 +0100 remove DISABLE_DESTRUCTOR_KLUDGE since do_clean_named_objs() is no longer kludgey, remove the macro that allows you to skip it ----------------------------------------------------------------------- Summary of changes: sv.c | 8 +------- 1 files changed, 1 insertions(+), 7 deletions(-) diff --git a/sv.c b/sv.c index e51b66a..2f39778 100644 --- a/sv.c +++ b/sv.c @@ -126,8 +126,7 @@ called by visit() for each SV]): sv_clean_objs() / do_clean_objs(),do_clean_named_objs(), do_clean_named_io_objs() Attempt to free all objects pointed to by RVs, - and, unless DISABLE_DESTRUCTOR_KLUDGE is defined, - try to do the same for all objects indirectly + and try to do the same for all objects indirectly referenced by typeglobs too. Called once from perl_destruct(), prior to calling sv_clean_all() below. @@ -476,8 +475,6 @@ do_clean_objs(pTHX_ SV *const ref) } -#ifndef DISABLE_DESTRUCTOR_KLUDGE - /* clear any slots in a GV which hold objects - except IO; * called by sv_clean_objs() for each live GV */ @@ -544,7 +541,6 @@ do_clean_named_io_objs(pTHX_ SV *const sv) } SvREFCNT_dec(sv); /* undo the inc above */ } -#endif /* =for apidoc sv_clean_objs @@ -561,7 +557,6 @@ Perl_sv_clean_objs(pTHX) GV *olddef, *olderr; PL_in_clean_objs = TRUE; visit(do_clean_objs, SVf_ROK, SVf_ROK); -#ifndef DISABLE_DESTRUCTOR_KLUDGE /* Some barnacles may yet remain, clinging to typeglobs. * Run the non-IO destructors first: they may want to output * error messages, close files etc */ @@ -576,7 +571,6 @@ Perl_sv_clean_objs(pTHX) if (olderr && isGV_with_GP(olderr)) do_clean_named_io_objs(aTHX_ MUTABLE_SV(olderr)); SvREFCNT_dec(olddef); -#endif PL_in_clean_objs = FALSE; } -- Perl5 Master Repository
