From ee9fe4fa6339dc1e49a4d484f9f03d4091c6aa90 Mon Sep 17 00:00:00 2001 From: daniel Date: Fri, 11 Jan 2013 19:13:47 +0900 Subject: most of it seems to work in perl now --- vxi11_server.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'vxi11_server.c') diff --git a/vxi11_server.c b/vxi11_server.c index 0f684c4..2241ef3 100644 --- a/vxi11_server.c +++ b/vxi11_server.c @@ -117,7 +117,6 @@ create_link_1_svc(Create_LinkParms *argp, struct svc_req *rqstp) { result.error = ERR_OUTOFRESOURCES; } else { - int linkid; for (linkid = 0; linkid < SIZEOFARRAY(links); linkid++) { if (links[linkid] == NULL) { @@ -443,6 +442,7 @@ destroy_intr_chan_1_svc(void *argp, struct svc_req *rqstp) { result.error = ERR_CHANNELNOTESTABLISHED; } else { + clnt_destroy(intclient); intclient = NULL; result.error = 0; } -- cgit