From: patthoyts <patthoyts>
Date: Mon, 9 Feb 2004 14:37:33 +0000 (+0000)
Subject: oops. Only need event source for win32
X-Git-Tag: root-dev-2~1
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=0f7ac11184da0f981ec99d608acbcd784a5b35de;p=tcludp

oops. Only need event source for win32
---

diff --git a/generic/udp_tcl.c b/generic/udp_tcl.c
index fe3ce65..4d853aa 100644
--- a/generic/udp_tcl.c
+++ b/generic/udp_tcl.c
@@ -142,6 +142,8 @@ Udp_Init(Tcl_Interp *interp)
     if (Udp_WinHasSockets(interp) != TCL_OK) {
         return TCL_ERROR;
     }
+
+    Tcl_CreateEventSource(UDP_SetupProc, UDP_CheckProc, NULL);
 #endif
 
     Tcl_CreateCommand(interp, "udp_open", udpOpen , 
@@ -151,8 +153,6 @@ Udp_Init(Tcl_Interp *interp)
     Tcl_CreateCommand(interp, "udp_peek", udpPeek , 
                       (ClientData) NULL, (Tcl_CmdDeleteProc *) NULL);
     
-    Tcl_CreateEventSource(UDP_SetupProc, UDP_CheckProc, NULL);
-
     r = Tcl_PkgProvide(interp, TCLUDP_PACKAGE_NAME, TCLUDP_PACKAGE_VERSION);
     return r;
 }