diff options
author | Jakub Witczak <kuba@erlang.org> | 2023-03-16 15:09:07 +0100 |
---|---|---|
committer | Jakub Witczak <kuba@erlang.org> | 2023-03-21 17:26:20 +0100 |
commit | 5f1a468c586dc8b0c9cbbe96d9b4b291dfbe303f (patch) | |
tree | d9a4426755e9d4f94fcddd7c4e58e9010b6ae4a9 /lib/public_key | |
parent | 3dc7447af02d9ac16036c8cfb834c19ee9ea4c18 (diff) | |
download | erlang-5f1a468c586dc8b0c9cbbe96d9b4b291dfbe303f.tar.gz |
public_key: rename internal variables
Diffstat (limited to 'lib/public_key')
-rw-r--r-- | lib/public_key/src/public_key.erl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/public_key/src/public_key.erl b/lib/public_key/src/public_key.erl index d129dcdc69..8c3805c219 100644 --- a/lib/public_key/src/public_key.erl +++ b/lib/public_key/src/public_key.erl @@ -1383,20 +1383,20 @@ pkix_ocsp_validate(Cert, DerIssuerCert, OcspRespDer, ResponderCerts, NonceExt) pkix_ocsp_validate(Cert, pkix_decode_cert(DerIssuerCert, otp), OcspRespDer, ResponderCerts, NonceExt); pkix_ocsp_validate(Cert, IssuerCert, OcspRespDer, ResponderCerts, NonceExt) -> - DecodedOcspResponseDer = pubkey_ocsp:decode_ocsp_response(OcspRespDer), - OcspResponses = - case DecodedOcspResponseDer of + OcspResponse = pubkey_ocsp:decode_ocsp_response(OcspRespDer), + OcspCertResponses = + case OcspResponse of {ok, BasicOcspResponse = #'BasicOCSPResponse'{certs = Certs}} -> - DecodedOtpCerts = [otp_cert(C) || C <- Certs], - DecodedResponderOtpCerts = + OcspResponseCerts = [otp_cert(C) || C <- Certs], + UserResponderCerts = [otp_cert(pkix_decode_cert(C, plain)) || C <- ResponderCerts], pubkey_ocsp:verify_ocsp_response( - BasicOcspResponse, DecodedOtpCerts ++ DecodedResponderOtpCerts, + BasicOcspResponse, OcspResponseCerts ++ UserResponderCerts, NonceExt); {error, _} = Error -> Error end, - case OcspResponses of + case OcspCertResponses of {ok, Responses} -> case pubkey_ocsp:find_single_response( otp_cert(Cert), otp_cert(IssuerCert), Responses) of |