X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=adns%2Fadns.c;h=5f26d327d0a3029c606b97ed4c250474fa44f6eb;hp=3812ffc87d80c30dc6f475619b50d41ef9b07627;hb=b1aa186fec2f36c274e71886e858408b1aa93e6d;hpb=a8c18d0ece235ab39c95ed73d02d3bb206209767

diff --git a/adns/adns.c b/adns/adns.c
index 3812ffc..5f26d32 100644
--- a/adns/adns.c
+++ b/adns/adns.c
@@ -604,9 +604,9 @@ int do_adns_asynch(ClientData cd, Tcl_Interp *ip,
 
   res= op.resolver;
 
-  rc= scriptinv_set(&query->on_yes, ip,on_yes);   if (rc) goto x_rc;
-  rc= scriptinv_set(&query->on_no,  ip,on_no);    if (rc) goto x_rc;
-  rc= scriptinv_set(&query->on_fail,ip,on_fail);  if (rc) goto x_rc;
+  rc= scriptinv_set_xa(&query->on_yes, ip,on_yes);   if (rc) goto x_rc;
+  rc= scriptinv_set_xa(&query->on_no,  ip,on_no);    if (rc) goto x_rc;
+  rc= scriptinv_set_xa(&query->on_fail,ip,on_fail);  if (rc) goto x_rc;
   query->xargs= xargs;
   Tcl_IncrRefCount(xargs);
   *result= query;