(Fopen_network_stream): Sleep 1 sec before connect retry.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/process.c b/src/process.c
index c37aa1ce9ef..adecb580634 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1658,6 +1658,10 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
 	goto loop;
       if (errno == EADDRINUSE && retry < 20)
 	{
+	  /* A delay here is needed on some FreeBSD systems,
+	     and it is harmless, since this retrying takes time anyway
+	     and should be infrequent.  */
+	  Fsleep_for (make_number (1), Qnil);
 	  retry++;
 	  goto loop;
 	}