summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlexandru Scvortov <alexandru@rabbitmq.com>2011-02-07 21:34:11 +0000
committerAlexandru Scvortov <alexandru@rabbitmq.com>2011-02-07 21:34:11 +0000
commit5aecb87648ff3ad0f3f7714e3c8d0368e7a163cd (patch)
treeb35a1dbdf7f8d612aa96a05993591bdf6d796b17
parent6c589ca4cbbd455248a62e2c0d1991d1a039dba7 (diff)
parent781ef3292b4c36f08074aec1d283e67895224aa8 (diff)
downloadrabbitmq-server-5aecb87648ff3ad0f3f7714e3c8d0368e7a163cd.tar.gz
merge bug23804 into default (ssl connections dying prior to R14)
-rw-r--r--src/rabbit_reader.erl10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/rabbit_reader.erl b/src/rabbit_reader.erl
index 4bb87f19..1781469a 100644
--- a/src/rabbit_reader.erl
+++ b/src/rabbit_reader.erl
@@ -925,10 +925,14 @@ socket_info(Get, Select) ->
end.
ssl_info(F, Sock) ->
+ %% The first ok form is R14
+ %% The second is R13 - the extra term is exportability (by inspection,
+ %% the docs are wrong)
case rabbit_net:ssl_info(Sock) of
- nossl -> '';
- {error, _} -> '';
- {ok, Info} -> F(Info)
+ nossl -> '';
+ {error, _} -> '';
+ {ok, {P, {K, C, H}}} -> F({P, {K, C, H}});
+ {ok, {P, {K, C, H, _}}} -> F({P, {K, C, H}})
end.
cert_info(F, Sock) ->