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 60e592f2f2997ec1cd27367de84237035eff76cd..4cfc32b25eb70cb6e2352bfa8fc5a94f5655d3a9 100644 (file)
--- a/libraries/libldap/tls_g.c
+++ b/libraries/libldap/tls_g.c
@@ -794,7 +794,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;