Fix double-free on ciphersuite parse failure

GnuTLS does an implicit free on failure.

diff --git a/libraries/libldap/tls_g.c b/libraries/libldap/tls_g.c
index 50e27a6b681093effea82f37995af8022f3676b5..c1e368e02eb0c21a3dbde2d8efe5a38ed111790f 100644 (file)
--- a/libraries/libldap/tls_g.c
+++ b/libraries/libldap/tls_g.c
@@ -786,7 +786,10 @@ tlsg_parse_ciphers( tlsg_ctx *ctx, char *suites )
 {
 #ifdef HAVE_CIPHERSUITES
        const char *err;
-       return gnutls_priority_init( &ctx->prios, suites, &err );
+       int rc = gnutls_priority_init( &ctx->prios, suites, &err );
+       if ( rc )
+               ctx->prios = NULL;
+       return rc;
 #else
        char *ptr, *end;
        int i, j, len, num;