Remainder of SSL purpose and trust code: trust and purpose setting in

[openssl.git] / apps / s_client.c

diff --git a/apps/s_client.c b/apps/s_client.c
index 6fcad17913344b309132199c5dccc404600a9506..0afd7907a1fdb8723afc9b6104835e1a62a9448e 100644 (file)
--- a/apps/s_client.c
+++ b/apps/s_client.c
@@ -323,6 +323,8 @@ bad:
                goto end;
                }
 
+       app_RAND_load_file(NULL, bio_err, 0);
+
        if (bio_c_out == NULL)
                {
                if (c_quiet)
@@ -738,6 +740,7 @@ end:
        if (ctx != NULL) SSL_CTX_free(ctx);
        if (cbuf != NULL) { memset(cbuf,0,BUFSIZZ); Free(cbuf); }
        if (sbuf != NULL) { memset(sbuf,0,BUFSIZZ); Free(sbuf); }
+       X509_cleanup();
        if (bio_c_out != NULL)
                {
                BIO_free(bio_c_out);