From 57bb245860e35e488edc349867894087587a1af6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jirka=20Hru=C5=A1ka?= <jirka@fud.cz>
Date: Wed, 1 Sep 2010 11:18:43 +0100
Subject: PL_my_cxt_list leaks

[perl #77352]

PL_my_cxt_list was never freed
---
 perl.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index 57be5d2367..7e135ca0b0 100644
--- a/perl.c
+++ b/perl.c
@@ -1071,6 +1071,10 @@ perl_destruct(pTHXx)
 			     (long)cxstack_ix + 1);
     }
 
+    /* the entries in this list are allocated via SV PVX's, so get freed
+     * in sv_clean_all */
+    Safefree(PL_my_cxt_list);
+
     /* Now absolutely destruct everything, somehow or other, loops or no. */
 
     /* the 2 is for PL_fdpid and PL_strtab */
-- 
cgit v1.2.1