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

p4raw-id: //depot/perl@30487

diff --git a/gv.c b/gv.c
index d56e8d0..f714421 100644 (file)
--- 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;
        }