From 0f7ac11184da0f981ec99d608acbcd784a5b35de Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts>
Date: Mon, 9 Feb 2004 14:37:33 +0000
Subject: [PATCH] oops. Only need event source for win32

---
 generic/udp_tcl.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
 }
-- 
2.23.0