Make mro_package_moved use a mortal in case mro_isa_changed_in3 croaks

1 files changed, 1 insertions, 2 deletions

diff --git a/mro.c b/mro.c
index b065d70fca..8fe6b2012e 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);
 }
 
 /*