chiark / gitweb /
working on making xargs work
authorian <ian>
Sat, 18 Dec 2004 13:02:40 +0000 (13:02 +0000)
committerian <ian>
Sat, 18 Dec 2004 13:02:40 +0000 (13:02 +0000)
adns/adns.c

index 3812ffc..5f26d32 100644 (file)
@@ -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;