From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 5 Feb 2016 02:04:59 +0000 (+1100)
Subject: Add sanity check for checking async DNS
X-Git-Tag: emacs-26.0.90~2520^2~32
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4c58cf3feb853f2808204e85529d9365b31a6b4;p=emacs.git

Add sanity check for checking async DNS

* src/process.c (check_for_dns): Disregard processes that have
already been killed.
---

diff --git a/src/process.c b/src/process.c
index 0c8fc43dd12..b232e331151 100644
--- a/src/process.c
+++ b/src/process.c
@@ -4602,6 +4602,10 @@ check_for_dns (Lisp_Object proc)
   if (! p->dns_requests)
     return Qnil;
 
+  /* This process should not already be connected (or killed). */
+  if (p->infd != 0)
+    return Qnil;
+
   ret = gai_error (p->dns_requests[0]);
   if (ret == EAI_INPROGRESS)
     return Qt;