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);
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);
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);