Better handling of IPv6

wyborowiec · Feb 10, 2012 · 3c3356e · 3c3356e
1 parent 647ef86
commit 3c3356e
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/ssh/src/ssh.erl b/lib/ssh/src/ssh.erl
@@ -345,7 +345,13 @@ handle_options([Opt | Rest], SockOpts, Opts) ->
 inetopt(true) ->
     inet;
 inetopt(false) ->
-    inet6.
+    case gen_tcp:listen(0, [inet6, {ip, loopback}]) of
+	{ok, Dummyport} ->
+	    gen_tcp:close(Dummyport),
+	    inet6;
+	_ ->
+	    inet
+    end.
 
 %%%
 %% Deprecated