Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:23
erlang
4582-ssl-Clearify-code.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor