From 19e38811559271a3d6c390847ee1f8a206d65a50 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Tue, 15 Jul 2014 15:10:32 +0000
Subject: [726349fab8] Stop leaking compression dictionary on zlib xform
 channel close.

---
 generic/tclZlib.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/generic/tclZlib.c b/generic/tclZlib.c
index 4ccda3b..06e18fe 100644
--- a/generic/tclZlib.c
+++ b/generic/tclZlib.c
@@ -2910,6 +2910,10 @@ ZlibTransformClose(
      * Release all memory.
      */
 
+    if (cd->compDictObj) {
+	Tcl_DecrRefCount(cd->compDictObj);
+	cd->compDictObj = NULL;
+    }
     Tcl_DStringFree(&cd->decompressed);
 
     if (cd->inBuffer) {
-- 
cgit v0.12