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 ea76cf11728e1e66ee30a20ee60e14d37e62d9a3..0c84e3dddddea4a139096d37e36527bdee467877 100644 (file)
--- a/ssl/ssl_lib.c
+++ b/ssl/ssl_lib.c
@@ -477,6 +477,11 @@ void SSL_free(SSL *s)
 
        if (s->method != NULL) s->method->ssl_free(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);
        }
 
        OPENSSL_free(s);
        }