chiark / gitweb /
it made an asynch query
authorian <ian>
Thu, 16 Dec 2004 01:07:02 +0000 (01:07 +0000)
committerian <ian>
Thu, 16 Dec 2004 01:07:02 +0000 (01:07 +0000)
adns/adns.c

index 1ecb672..3812ffc 100644 (file)
@@ -559,6 +559,7 @@ static void asynch_check(Resolver *res) {
   Tcl_Obj *results[RESULTLIST_LLEN];
 
   for (;;) {
+    aqu= 0;
     ec= adns_check(res->ads, &aqu, &answer, &query_v);
     if (ec==ESRCH || ec==EAGAIN) break;
     assert(!ec);
@@ -567,7 +568,7 @@ static void asynch_check(Resolver *res) {
     query->aqu= 0;
     tabledataid_disposing(interp, query, &adnstcl_queries);
 
-    si= (!answer->status ? si= &query->on_yes
+    si= (!answer->status ? &query->on_yes
         : answer->status > adns_s_max_tempfail ? &query->on_no
         : &query->on_fail);
 
@@ -609,8 +610,8 @@ int do_adns_asynch(ClientData cd, Tcl_Interp *ip,
   query->xargs= xargs;
   Tcl_IncrRefCount(xargs);
   *result= query;
-
-  return TCL_OK;
+  query= 0; /* do not dispose */
+  rc= TCL_OK;
 
  x_rc:
   if (query) asynch_query_dispose(ip, query);