diff options
Diffstat (limited to '')
-rw-r--r-- | lang/erlang14/files/patch-lib_ssl_src_ssl__prim.erl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/lang/erlang14/files/patch-lib_ssl_src_ssl__prim.erl b/lang/erlang14/files/patch-lib_ssl_src_ssl__prim.erl new file mode 100644 index 000000000000..94d8323434c0 --- /dev/null +++ b/lang/erlang14/files/patch-lib_ssl_src_ssl__prim.erl @@ -0,0 +1,23 @@ + +$FreeBSD$ + +--- lib/ssl/src/ssl_prim.erl.orig ++++ lib/ssl/src/ssl_prim.erl +@@ -107,7 +107,7 @@ + peername(St) when record(St, st), St#st.status =:= open -> + case ssl_server:peername_prim(ssl_server_prim, St#st.fd) of + {ok, {Address, Port}} -> +- {ok, At} = inet:getaddr(Address, inet), ++ {ok, At} = inet_parse:ipv4_address(Address), + {ok, {At, Port}}; + Error -> + Error +@@ -119,7 +119,7 @@ + sockname(St) when record(St, st), St#st.status =:= open -> + case ssl_server:sockname_prim(ssl_server_prim, St#st.fd) of + {ok, {Address, Port}} -> +- {ok, At} = inet:getaddr(Address, inet), ++ {ok, At} = inet_parse:ipv4_address(Address), + {ok, {At, Port}}; + Error -> + Error |