diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-19 19:35:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-19 19:35:43 +0000 |
| commit | 616da37c087effd2d1bd93d36e9bbb64597eabaa (patch) | |
| tree | b927208923be376e3241fba94222a7f4856c59fd /src | |
| parent | 289a8c294150e05f2e21a3092e175fe8d3db4008 (diff) | |
| download | emacs-616da37c087effd2d1bd93d36e9bbb64597eabaa.tar.gz | |
(Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Diffstat (limited to 'src')
| -rw-r--r-- | src/process.c | 10 |
1 files changed, 9 insertions, 1 deletions
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 */ { |