diff options
Diffstat (limited to 'src/process.c')
| -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 */ { |