From: Doug MacEachern <dougm@covalent.net>
Date: Sat, 15 Sep 2001 17:02:18 +0000 (-0700)
Subject: [patch] plug PL_beginav_save leak
X-Git-Tag: accepted/trunk/20130322.191538~30266
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5a837c8f09fbdb836b1e6e369e0917ef08034ee5;p=platform%2Fupstream%2Fperl.git

[patch] plug PL_beginav_save leak
Message-ID: <Pine.LNX.4.21.0109151659060.6089-100000@mako.covalent.net>

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

diff --git a/perl.c b/perl.c
index f35a938..9843134 100644
--- a/perl.c
+++ b/perl.c
@@ -564,10 +564,12 @@ perl_destruct(pTHXx)
 
     /* startup and shutdown function lists */
     SvREFCNT_dec(PL_beginav);
+    SvREFCNT_dec(PL_beginav_save);
     SvREFCNT_dec(PL_endav);
     SvREFCNT_dec(PL_checkav);
     SvREFCNT_dec(PL_initav);
     PL_beginav = Nullav;
+    PL_beginav_save = Nullav;
     PL_endav = Nullav;
     PL_checkav = Nullav;
     PL_initav = Nullav;