Don't throw exception on prim_inet:setopt/3 error

Let gen_tcp:controlling_process/2 and inet_sctp:connect/[45] propagate
prim_inet:setopt/3 errors instead of having them generate badmatch
exceptions.

1 files changed, 11 insertions, 8 deletions

diff --git a/lib/kernel/src/inet_sctp.erl b/lib/kernel/src/inet_sctp.erl
index 93528d305d..f0f13c8d4a 100644
--- a/lib/kernel/src/inet_sctp.erl
+++ b/lib/kernel/src/inet_sctp.erl
@@ -133,15 +133,18 @@ connect_get_assoc(S, Addr, Port, Active, Timer) ->
     Timeout = inet:timeout(Timer),
     receive
 	{sctp,S,Addr,Port,{_,#sctp_assoc_change{state=St}=Ev}} ->
-	    case Active of
-		once ->
-		    ok = prim_inet:setopt(S, active, once);
-		_ -> ok
-	    end,
-	    if St =:= comm_up ->
+	    SetOptRes =
+		case Active of
+		    once -> prim_inet:setopt(S, active, once);
+		    _ -> ok
+		end,
+	    case {St, SetOptRes} of
+		{comm_up, ok} ->
 		    {ok,Ev};
-	       true ->
-		    {error,Ev}
+		{_, ok} ->
+		    {error,Ev};
+		{_, Error} ->
+		    Error
 	    end
     after Timeout ->
 	    {error,timeout}