Fix a small leak on loading *+ and *- globs

p4raw-id: //depot/perl@30487

1 files changed, 2 insertions, 0 deletions

diff --git a/gv.c b/gv.c
index d56e8d0691..f714421e32 100644
--- a/gv.c
+++ b/gv.c
@@ -1225,6 +1225,8 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
                 
             if (sv_type == SVt_PVHV) 
                 require_tie_mod(gv, name, stashname, "FETCH", 0);
+	    else
+		SvREFCNT_dec(stashname);
 
 	    break;
 	}