From b1aa186fec2f36c274e71886e858408b1aa93e6d Mon Sep 17 00:00:00 2001 From: ian Date: Sat, 18 Dec 2004 13:02:40 +0000 Subject: [PATCH] working on making xargs work --- adns/adns.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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; -- 2.30.2