* -quotefail-cname
* -cname-loose
* -cname-forbid
+ * -reverse
+ * -reverse-any ZONE-A-LIKE
*
* adns new-resolver [RES-OPTIONS...] => RESOLVER
* options:
* -noenv|-debug|-logpid
* -checkc-entex
* -checkc-freq
- * -reverse
- * -reverse-any ZONE-A-LIKE
* -config CONFIG-STRING
*
* adns set-default-resolver RESOLVER
}
int do_adns_destroy_resolver(ClientData cd, Tcl_Interp *ip, void *res_v) {
- destroy_resolver(ip,res_v);
tabledataid_disposing(ip,res_v,&adnstcl_resolvers);
+ destroy_resolver(ip,res_v);
return TCL_OK;
}
if (FD_ISSET(fd, &want[0])) mask |= TCL_READABLE;
if (FD_ISSET(fd, &want[1])) mask |= TCL_WRITABLE;
if (FD_ISSET(fd, &want[2])) mask |= TCL_EXCEPTION;
- if (mask) Tcl_CreateFileHandler(fd,mask,asynch_filehandler,res);
- else Tcl_DeleteFileHandler(fd);
+ if (mask) {
+ Tcl_CreateFileHandler(fd,mask,asynch_filehandler,res);
+ FD_SET(fd, &res->handling[i]);
+ } else {
+ Tcl_DeleteFileHandler(fd);
+ FD_CLR(fd, &res->handling[i]);
+ }
}
+ res->maxfd= maxfd;
Tcl_DeleteTimerHandler(res->timertoken);