Artifact 13a18a6baa7c2c4c17843ff71f34598312343921:

• File tls/patches/all/tls-1.6-fixmemleak-bugid3041925.diff — part of check-in [9e6949c7b4] at 2013-09-14 04:51:00 on branch trunk — Added TLS optional package (user: rkeene, size: 418) [annotate] [blame] [check-ins using]

diff -uNr tls1.6.orig/tls.c tls1.6-fixmemleak-bugid3041925/tls.c
--- tls1.6.orig/tls.c	2008-03-19 17:06:13.000000000 -0500
+++ tls1.6-fixmemleak-bugid3041925/tls.c	2010-10-08 13:03:39.000000000 -0500
@@ -1156,6 +1156,8 @@
 	peer	= SSL_get_certificate(statePtr->ssl);
     if (peer) {
 	objPtr = Tls_NewX509Obj(interp, peer);
+
+	if (objc == 2) X509_free(peer);
     } else {
 	objPtr = Tcl_NewListObj(0, NULL);
     }