File 4582-ssl-Clearify-code.patch of Package erlang

From 7759e8d72779b0dec125080b982dcbcb36648d4b Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Mon, 25 Oct 2021 16:03:31 +0200
Subject: [PATCH 2/2] ssl: Clearify code

---
 lib/ssl/src/ssl_crl.erl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/ssl/src/ssl_crl.erl b/lib/ssl/src/ssl_crl.erl
index 0607ffcbd9..be44693b86 100644
--- a/lib/ssl/src/ssl_crl.erl
+++ b/lib/ssl/src/ssl_crl.erl
@@ -63,8 +63,8 @@ trusted_cert_and_path(CRL, issuer_not_found, CertPath, {Db, DbRef}) ->
 search_certpath(CRL, CertPath, Db, DbRef) ->
     Issuer = public_key:pkix_normalize_name(public_key:pkix_crl_issuer(CRL)),
     IsIssuerFun =
-	fun(ErlCertCandidate, Acc) ->
-		verify_crl_issuer(CRL, ErlCertCandidate, Issuer, Acc)
+	fun(CertCandidate, Acc) ->
+		verify_crl_issuer(CRL, CertCandidate, Issuer, Acc)
 	end,
     case find_issuer(IsIssuerFun, certpath, CertPath) of
 	{ok, OtpCert} ->
@@ -105,13 +105,13 @@ find_issuer(IsIssuerFun, Db, _) ->
             Result
     end.
 
-verify_crl_issuer(CRL, #cert{otp = ErlCertCandidate}, Issuer, NotIssuer) ->
-    TBSCert =  ErlCertCandidate#'OTPCertificate'.tbsCertificate,
+verify_crl_issuer(CRL, #cert{otp = OTPCertCandidate}, Issuer, NotIssuer) ->
+    TBSCert = OTPCertCandidate#'OTPCertificate'.tbsCertificate,
     case public_key:pkix_normalize_name(TBSCert#'OTPTBSCertificate'.subject) of
 	Issuer ->
-	    case public_key:pkix_crl_verify(CRL, ErlCertCandidate) of
+	    case public_key:pkix_crl_verify(CRL, OTPCertCandidate) of
 		true ->
-		    throw({ok, ErlCertCandidate});
+		    throw({ok, OTPCertCandidate});
 		false ->
 		    NotIssuer
 	    end;
-- 
2.31.1