From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 6 Mar 2007 15:04:03 +0000 (+0000)
Subject: Fix a small leak on loading *+ and *- globs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85cdd78cda5343abb5bce44ea1ca132aa141cffb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	}