diff options
| author | Hans Nilsson <[email protected]> | 2018-08-27 17:27:38 +0200 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2018-08-27 17:27:38 +0200 |
| commit | ecea0a8b85e650ff717623dc6be2c18a8dbba971 (patch) | |
| tree | 4b1a8de48fe0d62eb185ecb1e103112e140ba181 /lib/ssl/src/ssl_connection.erl | |
| parent | 7db7a1caeeee21682f37cfa95f9f026074e03ccf (diff) | |
| parent | a0364386d54d6a5c211f66f71e85505953241d07 (diff) | |
| download | otp-ecea0a8b85e650ff717623dc6be2c18a8dbba971.tar.gz otp-ecea0a8b85e650ff717623dc6be2c18a8dbba971.tar.bz2 otp-ecea0a8b85e650ff717623dc6be2c18a8dbba971.zip | |
Merge branch 'hans/ssl/dialyzer_crypto_typed/OTP-15271' into maint
* hans/ssl/dialyzer_crypto_typed/OTP-15271:
ssl: Fix dialyzer errors detected when crypto.erl is typed
Diffstat (limited to 'lib/ssl/src/ssl_connection.erl')
| -rw-r--r-- | lib/ssl/src/ssl_connection.erl | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lib/ssl/src/ssl_connection.erl b/lib/ssl/src/ssl_connection.erl index 7649ed2899..05433b15ba 100644 --- a/lib/ssl/src/ssl_connection.erl +++ b/lib/ssl/src/ssl_connection.erl @@ -2175,22 +2175,24 @@ generate_srp_server_keys(_SrpParams, 10) -> generate_srp_server_keys(SrpParams = #srp_user{generator = Generator, prime = Prime, verifier = Verifier}, N) -> - case crypto:generate_key(srp, {host, [Verifier, Generator, Prime, '6a']}) of - error -> - generate_srp_server_keys(SrpParams, N+1); + try crypto:generate_key(srp, {host, [Verifier, Generator, Prime, '6a']}) of Keys -> Keys + catch + error:_ -> + generate_srp_server_keys(SrpParams, N+1) end. generate_srp_client_keys(_Generator, _Prime, 10) -> ?ALERT_REC(?FATAL, ?ILLEGAL_PARAMETER); generate_srp_client_keys(Generator, Prime, N) -> - case crypto:generate_key(srp, {user, [Generator, Prime, '6a']}) of - error -> - generate_srp_client_keys(Generator, Prime, N+1); + try crypto:generate_key(srp, {user, [Generator, Prime, '6a']}) of Keys -> Keys + catch + error:_ -> + generate_srp_client_keys(Generator, Prime, N+1) end. handle_srp_identity(Username, {Fun, UserState}) -> |