From 1494ce556961d47f7c1fde4342161de615f3fe04 Mon Sep 17 00:00:00 2001 From: Adam Dickmeiss Date: Tue, 11 Jun 1996 15:27:15 +0000 Subject: [PATCH] Event type set to connect a little earlier in the do_connect function. --- ir-tcl.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ir-tcl.c b/ir-tcl.c index d6e1666..745c11d 100644 --- a/ir-tcl.c +++ b/ir-tcl.c @@ -5,7 +5,10 @@ * Sebastian Hammer, Adam Dickmeiss * * $Log: ir-tcl.c,v $ - * Revision 1.88 1996-06-03 09:04:22 adam + * Revision 1.89 1996-06-11 15:27:15 adam + * Event type set to connect a little earlier in the do_connect function. + * + * Revision 1.88 1996/06/03 09:04:22 adam * Changed a few logf calls. * * Revision 1.87 1996/05/29 06:37:51 adam @@ -1095,13 +1098,13 @@ static int do_connect (void *obj, Tcl_Interp *interp, } if (ir_tcl_strdup (interp, &p->hostname, argv[2]) == TCL_ERROR) return TCL_ERROR; + p->eventType = "connect"; if ((r=cs_connect (p->cs_link, addr)) < 0) { interp->result = "connect fail"; ir_tcl_disconnect (p); return TCL_ERROR; } - p->eventType = "connect"; ir_select_add (cs_fileno (p->cs_link), p); if (r == 1) { -- 1.7.10.4