log *actual* listening IP & portbug19587

This caters for o/s-assigned listening ports, i.e. when the given port
is 0.

1 files changed, 3 insertions, 3 deletions

diff --git a/src/tcp_listener.erl b/src/tcp_listener.erl
index 3943161a..dc38b594 100644
--- a/src/tcp_listener.erl
+++ b/src/tcp_listener.erl
@@ -58,9 +58,9 @@ init({IPAddress, Port, SocketOpts,
                                                   AcceptorSup, [LSock])
                           end,
                           lists:duplicate(ConcurrentAcceptorCount, dummy)),
-            error_logger:info_msg(
-              "started TCP listener on ~s:~p~n",
-              [inet_parse:ntoa(IPAddress), Port]),
+            {ok, {LIPAddress, LPort}} = inet:sockname(LSock),
+            error_logger:info_msg("started TCP listener on ~s:~p~n",
+                                  [inet_parse:ntoa(LIPAddress), LPort]),
             apply(M, F, A ++ [IPAddress, Port]),
             {ok, #state{sock=LSock,
                         on_startup = OnStartup, on_shutdown = OnShutdown}};