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 (file)
--- 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);
 }