oops. Only need event source for win32

diff --git a/generic/udp_tcl.c b/generic/udp_tcl.c
index fe3ce65e2a0f9203dc9510626dec80083f696f59..4d853aa8315f2696ec2a39d5cd7afb0dc639e8d6 100644 (file)
--- 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;
 }