aboutsummaryrefslogtreecommitdiffstats
path: root/erts/doc/src/socket.xml
diff options
context:
space:
mode:
Diffstat (limited to 'erts/doc/src/socket.xml')
-rw-r--r--erts/doc/src/socket.xml17
1 files changed, 8 insertions, 9 deletions
diff --git a/erts/doc/src/socket.xml b/erts/doc/src/socket.xml
index 795df0d238..caf7058b34 100644
--- a/erts/doc/src/socket.xml
+++ b/erts/doc/src/socket.xml
@@ -614,14 +614,13 @@
<title>Examples</title>
<marker id="examples"></marker>
<code type="none">
-client(Addr, Port) ->
+client(Addr, SAddr, SPort) ->
{ok, Sock} = socket:open(inet, stream, tcp),
- ok = socket:bind(Sock, #{family => inet,
- port => 0,
- addr => any}),
+ {ok, _} = socket:bind(Sock, #{family => inet,
+ addr => Addr}),
ok = socket:connect(Sock, #{family => inet,
- addr => Addr,
- port => Port}),
+ addr => SAddr,
+ port => SPort}),
Msg = list_to_binary("hello"),
ok = socket:send(Sock, Msg),
ok = socket:shutdown(Sock, write),
@@ -630,9 +629,9 @@ client(Addr, Port) ->
server(Addr, Port) ->
{ok, LSock} = socket:open(inet, stream, tcp),
- ok = socket:bind(LSock, #{family => inet,
- port => Port,
- addr => Addr}),
+ {ok, _} = socket:bind(LSock, #{family => inet,
+ port => Port,
+ addr => Addr}),
ok = socket:listen(LSock),
{ok, Sock} = socket:accept(LSock),
{ok, Msg} = socket:recv(Sock),