Ticket #20180: patch-lib_kernel_src-inet_sctp.erl

File patch-lib_kernel_src-inet_sctp.erl, 846 bytes (added by rkmspence@…, 15 years ago)

Fix a matching bug in inet_sctp.erl preventing correct operation of gen_sctp:connect etc.

Line 
1--- lib/kernel/src/inet_sctp.erl.orig   2009-07-05 12:42:10.000000000 +0200
2+++ lib/kernel/src/inet_sctp.erl        2009-07-05 12:43:25.000000000 +0200
3@@ -96,7 +96,7 @@
4 
5 connect_get_assoc(S, Addr, Port, false, Timer) ->
6     case recv(S, inet:timeout(Timer)) of
7-       {ok, {Addr, Port, [], #sctp_assoc_change{state=St}=Ev}} ->
8+       {ok, {Addr, Port, _Info, #sctp_assoc_change{state=St}=Ev}} ->
9            if St =:= comm_up ->
10                    %% Yes, successfully connected, return the whole
11                    %% sctp_assoc_change event (containing, in particular,
12@@ -117,7 +117,7 @@
13 connect_get_assoc(S, Addr, Port, Active, Timer) ->
14     Timeout = inet:timeout(Timer),
15     receive
16-       {sctp,S,Addr,Port,{[],#sctp_assoc_change{state=St}=Ev}} ->
17+       {sctp,S,Addr,Port,{_Info,#sctp_assoc_change{state=St}=Ev}} ->
18            case Active of
19                once ->
20                    prim_inet:setopt(S, active, once);