aboutsummaryrefslogtreecommitdiffstats
path: root/lib/inets
diff options
context:
space:
mode:
authorMicael Karlberg <bmk@erlang.org>2012-02-08 12:47:12 +0100
committerMicael Karlberg <bmk@erlang.org>2012-02-08 12:47:12 +0100
commit6673b675b93de3e5466b18c7c8cd848b9dc6ec0a (patch)
tree0ef1580b7e1357bf6b589e54d8161edec7e95ccc /lib/inets
parentc67df603f88f1cd41c35bfb1d663978864689fe9 (diff)
downloadotp-6673b675b93de3e5466b18c7c8cd848b9dc6ec0a.tar.gz
otp-6673b675b93de3e5466b18c7c8cd848b9dc6ec0a.tar.bz2
otp-6673b675b93de3e5466b18c7c8cd848b9dc6ec0a.zip
[inets/httpc] Connect error info improvement
Diffstat (limited to 'lib/inets')
-rw-r--r--lib/inets/src/http_client/httpc_handler.erl11
1 files changed, 7 insertions, 4 deletions
diff --git a/lib/inets/src/http_client/httpc_handler.erl b/lib/inets/src/http_client/httpc_handler.erl
index 714fd6f16d..b8c34bd99b 100644
--- a/lib/inets/src/http_client/httpc_handler.erl
+++ b/lib/inets/src/http_client/httpc_handler.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2002-2011. All Rights Reserved.
+%% Copyright Ericsson AB 2002-2012. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
@@ -851,14 +851,16 @@ connect(SocketType, ToAddress,
case IpFamily of
inet6fb4 ->
Opts3 = [inet6 | Opts2],
- case http_transport:connect(SocketType, ToAddress, Opts3, Timeout) of
+ case http_transport:connect(SocketType,
+ ToAddress, Opts3, Timeout) of
{error, Reason6} ->
Opts4 = [inet | Opts2],
case http_transport:connect(SocketType,
ToAddress, Opts4, Timeout) of
{error, Reason4} ->
{error, {failed_connect,
- [{inet6, Opts3, Reason6},
+ [{to_address, ToAddress},
+ {inet6, Opts3, Reason6},
{inet, Opts4, Reason4}]}};
OK ->
OK
@@ -870,7 +872,8 @@ connect(SocketType, ToAddress,
Opts3 = [IpFamily | Opts2],
case http_transport:connect(SocketType, ToAddress, Opts3, Timeout) of
{error, Reason} ->
- {error, {failed_connect, [{IpFamily, Opts3, Reason}]}};
+ {error, {failed_connect, [{to_address, ToAddress},
+ {IpFamily, Opts3, Reason}]}};
Else ->
Else
end