From 5b7249f3021cb90bcdbd336c75c7699f8b8caf19 Mon Sep 17 00:00:00 2001
From: "Dr. Stephen Henson" <steve@openssl.org>
Date: Thu, 9 Jan 2003 13:06:49 +0000
Subject: [PATCH] NULL tofree when it is freed to avoid double free.

Make sure key is not NULL before freeing it.
---
 apps/ca.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/apps/ca.c b/apps/ca.c
index c413a0318f..0ef23ad79f 100644
--- a/apps/ca.c
+++ b/apps/ca.c
@@ -597,7 +597,10 @@ bad:
 		goto err;
 		}
 	if(tofree)
+		{
 		OPENSSL_free(tofree);
+		tofree = NULL;
+		}
 
 	if (!load_config(bio_err, conf))
 		goto err;
@@ -1642,7 +1645,7 @@ err:
 
 	if (ret) ERR_print_errors(bio_err);
 	app_RAND_write_file(randfile, bio_err);
-	if (free_key)
+	if (free_key & key)
 		OPENSSL_free(key);
 	BN_free(serial);
 	TXT_DB_free(db);
-- 
2.34.1