Free the Kerberos context upon freeing the SSL.

Contributed by Andrew Mann <amann@tccgi.com>

diff --git a/ssl/ssl_lib.c b/ssl/ssl_lib.c
index ddd811458779a11783ec9ce0d322b28faf3a6120..6d698906884a1226d3126db58b5f24db6c2d98ee 100644 (file)
--- a/ssl/ssl_lib.c
+++ b/ssl/ssl_lib.c
@@ -473,6 +473,11 @@ void SSL_free(SSL *s)
 
        if (s->method != NULL) s->method->ssl_free(s);
 
+#ifndef        OPENSSL_NO_KRB5
+       if (s->kssl_ctx != NULL)
+               kssl_ctx_free(s->kssl_ctx);
+#endif /* OPENSSL_NO_KRB5 */
+
        OPENSSL_free(s);
        }