summaryrefslogtreecommitdiffstats
path: root/win/tclWinSock.c
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2009-01-27 00:01:42 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2009-01-27 00:01:42 (GMT)
commit038ad9c8c8c8a7c63a58858d7693942420d5babd (patch)
treed745447207155bddda15717c631a120a70ab71ab /win/tclWinSock.c
parentf8cf7d1c32e40ccd4a7f2e27de0a51b5196aa00b (diff)
downloadtcl-038ad9c8c8c8a7c63a58858d7693942420d5babd.zip
tcl-038ad9c8c8c8a7c63a58858d7693942420d5babd.tar.gz
tcl-038ad9c8c8c8a7c63a58858d7693942420d5babd.tar.bz2
Fix [Bug 1028264]: WSACleanup() too early. The fix introduces "late exit handlers" for similar late process-wide cleanups.
Diffstat (limited to 'win/tclWinSock.c')
-rw-r--r--win/tclWinSock.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index d99ee2d..b03bf48 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinSock.c,v 1.65 2009/01/26 22:57:57 ferrieux Exp $
+ * RCS: @(#) $Id: tclWinSock.c,v 1.66 2009/01/27 00:02:08 ferrieux Exp $
*/
#include "tclWinInt.h"
@@ -232,7 +232,7 @@ InitSockets(void)
if (!initialized) {
initialized = 1;
- Tcl_CreateExitHandler(SocketExitHandler, (ClientData) NULL);
+ TclCreateLateExitHandler(SocketExitHandler, (ClientData) NULL);
/*
* Create the async notification window with a new class. We must