From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Wed, 21 Feb 2001 13:08:03 +0000 (-0500)
Subject: glob-in-eval memory leak fix
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e48f23091da2d4765330c841b01ea37b4d2bb3ac;p=p5sagit%2Fp5-mst-13.2.git

glob-in-eval memory leak fix
Message-Id: <010221130721.7a2ab@DUPHY4.Physics.Drexel.Edu>

p4raw-id: //depot/perl@8881
---

diff --git a/op.c b/op.c
index af7221e..ab9d7b1 100644
--- a/op.c
+++ b/op.c
@@ -5799,6 +5799,7 @@ Perl_ck_glob(pTHX_ OP *o)
     gv = newGVgen("main");
     gv_IOadd(gv);
     append_elem(OP_GLOB, o, newGVOP(OP_GV, 0, gv));
+    SvREFCNT_dec((SV*)gv); /* had excess refcnt */
     scalarkids(o);
     return o;
 }