(Fopen_network_stream): Sleep 1 sec before connect retry.

diff --git a/src/process.c b/src/process.c
index c37aa1ce9ef3bb3cb14d8668c1132d7790153704..adecb58063493c27afb0d2eabffd2b19c6c0fcd8 100644 (file)
--- 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;
        }