From: ian <ian>
Date: Sat, 18 Dec 2004 13:02:40 +0000 (+0000)
Subject: working on making xargs work
X-Git-Tag: debian/1.1.1~112
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=commitdiff_plain;h=b1aa186fec2f36c274e71886e858408b1aa93e6d

working on making xargs work
---

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;