Delete possibly existing socket file when listening on a local socket

2 files changed, 18 insertions, 0 deletions

diff --git a/src/ranch_ssl.erl b/src/ranch_ssl.erl
index b86a35f..cc51012 100644
--- a/src/ranch_ssl.erl
+++ b/src/ranch_ssl.erl
@@ -124,6 +124,15 @@ do_listen(SocketOpts0, Logger) ->
 	SocketOpts2 = ranch:set_option_default(SocketOpts1, nodelay, true),
 	SocketOpts3 = ranch:set_option_default(SocketOpts2, send_timeout, 30000),
 	SocketOpts = ranch:set_option_default(SocketOpts3, send_timeout_close, true),
+	%% In case of a local socket, we remove the socket file first.
+	%% It is possible to have multiple ip tuples in the socket options,
+	%% and the last one will be used (undocumented).
+	_ = case lists:keyfind(ip, 1, lists:reverse(SocketOpts0)) of
+		{ip, {local, SockFile}} ->
+			file:delete(SockFile);
+		_ ->
+			ok
+	end,
 	%% We set the port to 0 because it is given in the Opts directly.
 	%% The port in the options takes precedence over the one in the
 	%% first argument.
diff --git a/src/ranch_tcp.erl b/src/ranch_tcp.erl
index 0d8da2e..4abd088 100644
--- a/src/ranch_tcp.erl
+++ b/src/ranch_tcp.erl
@@ -92,6 +92,15 @@ listen(TransOpts) ->
 	SocketOpts2 = ranch:set_option_default(SocketOpts1, nodelay, true),
 	SocketOpts3 = ranch:set_option_default(SocketOpts2, send_timeout, 30000),
 	SocketOpts4 = ranch:set_option_default(SocketOpts3, send_timeout_close, true),
+	%% In case of a local socket, we remove the socket file first.
+	%% It is possible to have multiple ip tuples in the socket options,
+	%% and the last one will be used (undocumented).
+	_ = case lists:keyfind(ip, 1, lists:reverse(SocketOpts0)) of
+		{ip, {local, SockFile}} ->
+			file:delete(SockFile);
+		_ ->
+			ok
+	end,
 	%% We set the port to 0 because it is given in the Opts directly.
 	%% The port in the options takes precedence over the one in the
 	%% first argument.