Sigh. This is what #10424 was supposed to check in.

p4raw-id: //depot/perl@10433

1 files changed, 6 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index 581c788318..f56b45c037 100644
--- a/sv.c
+++ b/sv.c
@@ -4559,8 +4559,12 @@ Perl_sv_clear(pTHX_ register SV *sv)
 		--PL_sv_objcount;	/* XXX Might want something more general */
 	}
     }
-    if (SvTYPE(sv) >= SVt_PVMG && SvMAGIC(sv))
-	mg_free(sv);
+    if (SvTYPE(sv) >= SVt_PVMG) {
+    	if (SvMAGIC(sv))
+	    mg_free(sv);
+	if (SvFLAGS(sv) & SVpad_TYPED)
+	    SvREFCNT_dec(SvSTASH(sv));
+    }
     stash = NULL;
     switch (SvTYPE(sv)) {
     case SVt_PVIO: