From: Gerard Goossen <gerard@ggoossen.net>
Date: Fri, 18 Dec 2009 14:11:25 +0000 (+0100)
Subject: Free the PL_scopestack_name
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=587808146dcf7a2a909b351c4c32085e6fcb74dc;p=p5sagit%2Fp5-mst-13.2.git

Free the PL_scopestack_name

Free the PL_scopestack_name

Gerard Goossen

From 4652807944b1b7efc8a66b3fe8d7562d23a2189f Mon Sep 17 00:00:00 2001
From: Gerard Goossen <gerard@ggoossen.net>
Date: Fri, 18 Dec 2009 15:09:49 +0100
Subject: [PATCH 2/2] Free the PL_scopestack_name

Signed-off-by: H.Merijn Brand <h.m.brand@xs4all.nl>
---

diff --git a/perl.c b/perl.c
index 364391c..091dd62 100644
--- a/perl.c
+++ b/perl.c
@@ -3842,6 +3842,9 @@ S_nuke_stacks(pTHX)
     Safefree(PL_tmps_stack);
     Safefree(PL_markstack);
     Safefree(PL_scopestack);
+#ifdef DEBUGGING
+    Safefree(PL_scopestack_name);
+#endif
     Safefree(PL_savestack);
 }