mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-08 00:33:13 -08:00
Code Issues Projects Releases Wiki Activity

(Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.

Browse source
This commit is contained in:
Richard M. Stallman 1994-07-19 19:35:43 +00:00
parent 289a8c2941
commit 616da37c08
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/process.c
View file

@ -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 */
{