In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dbe2fffcb043e3f633e8c31acbe8a158c7083248?hp=23098a26ae8f44fa7dff4159b4876faab0559a64>
- Log ----------------------------------------------------------------- commit dbe2fffcb043e3f633e8c31acbe8a158c7083248 Author: Father Chrysostomos <[email protected]> Date: Sun Oct 24 10:42:33 2010 -0700 Make mro_package_moved use a mortal in case mro_isa_changed_in3 croaks ----------------------------------------------------------------------- Summary of changes: mro.c | 3 +-- 1 files changed, 1 insertions(+), 2 deletions(-) diff --git a/mro.c b/mro.c index b065d70..8fe6b20 100644 --- a/mro.c +++ b/mro.c @@ -631,7 +631,7 @@ Perl_mro_package_moved(pTHX_ HV * const stash, const HV * const oldstash, /* Skip the entire loop if the hash is empty. */ if(oldstash && HvUSEDKEYS(oldstash)) { xhv = (XPVHV*)SvANY(oldstash); - seen = newHV(); + seen = (HV *) sv_2mortal((SV *)newHV()); /* Iterate through entries in the oldstash, calling mro_package_moved( @@ -734,7 +734,6 @@ Perl_mro_package_moved(pTHX_ HV * const stash, const HV * const oldstash, } } - if(seen) SvREFCNT_dec((SV *)seen); } /* -- Perl5 Master Repository
