diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/rabbit_networking.erl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/rabbit_networking.erl b/src/rabbit_networking.erl index a1c8a226a6..a2ddfb1490 100644 --- a/src/rabbit_networking.erl +++ b/src/rabbit_networking.erl @@ -117,16 +117,17 @@ boot_ssl() -> | SslOptsConfig] end, % In R13B04 and R14A (at least), rc4 is incorrectly implemented. - CSs = lists:filter( - fun ({_, rc4_128, _}) -> - false; - (S) when is_list(S) -> - string:str(S, "RC4") =:= 0; - (_) -> - true - end, - proplists:get_value(ciphers, SslOpts, ssl:cipher_suites())), - SslOpts1 = [{ciphers, CSs} | [{K, V} || {K, V} <- SslOpts, K =/= ciphers]], + CipherSuites = proplists:get_value(ciphers, SslOpts, ssl:cipher_suites()), + FilteredCipherSuites = lists:filter( + fun ({_, rc4_128, _}) -> + false; + (S) when is_list(S) -> + string:str(S, "RC4") =:= 0; + (_) -> + true + end, CipherSuites), + SslOpts1 = [{ciphers, FilteredCipherSuites} + | [{K, V} || {K, V} <- SslOpts, K =/= ciphers]], [start_ssl_listener(Host, Port, SslOpts1) || {Host, Port} <- SslListeners], ok end. |