refactoring

1 files changed, 11 insertions, 10 deletions

diff --git a/src/rabbit_networking.erl b/src/rabbit_networking.erl
index a1c8a226..a2ddfb14 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.