From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 Jul 1994 19:35:43 +0000 (+0000)
Subject: (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
X-Git-Tag: emacs-19.34~7566
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=616da37c087effd2d1bd93d36e9bbb64597eabaa;p=emacs.git

(Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
---

diff --git a/src/process.c b/src/process.c
index 3c62349a898..013a3128979 100644
--- a/src/process.c
+++ b/src/process.c
@@ -1514,7 +1514,15 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\
     }
 
 #ifndef TERM
-  host_info_ptr = gethostbyname (XSTRING (host)->data);
+  while (1)
+    {
+      host_info_ptr = gethostbyname (XSTRING (host)->data);
+#ifdef TRY_AGAIN
+      if (! (host_info_ptr == 0 && h_errno == TRY_AGAIN))
+#endif
+	break;
+      Fsleep_for (make_number (1), Qnil);
+    }
   if (host_info_ptr == 0)
     /* Attempt to interpret host as numeric inet address */
     {