This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Free the PL_scopestack_name
authorGerard Goossen <gerard@ggoossen.net>
Fri, 18 Dec 2009 14:11:25 +0000 (15:11 +0100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 18 Dec 2009 14:53:44 +0000 (15:53 +0100)
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>
perl.c

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