summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorferrieux <ferrieux@users.sourceforge.net>2009-04-27 22:10:28 (GMT)
committerferrieux <ferrieux@users.sourceforge.net>2009-04-27 22:10:28 (GMT)
commit4ce9fe53dec6acb9baef9825f09cccd3d2984204 (patch)
tree1b8ee5775fa5066b3ebec1a4612f2d15ef65118e /win
parent67f8b1bc1ba1d7df58f6005534a2f488a100c339 (diff)
downloadtcl-4ce9fe53dec6acb9baef9825f09cccd3d2984204.zip
tcl-4ce9fe53dec6acb9baef9825f09cccd3d2984204.tar.gz
tcl-4ce9fe53dec6acb9baef9825f09cccd3d2984204.tar.bz2
Backport fix for [Bug 1028264]: WSACleanup() too early. The fix introduces "late exit handlers" for similar late process-wide cleanups.
Diffstat (limited to 'win')
-rw-r--r--win/tclWinSock.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index 1053d4d..329b57f 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.36.2.9 2009/04/27 21:25:18 ferrieux Exp $
+ * RCS: @(#) $Id: tclWinSock.c,v 1.36.2.10 2009/04/27 22:10:28 ferrieux Exp $
*/
#include "tclWinInt.h"
@@ -326,7 +326,7 @@ InitSockets()
if (!initialized) {
initialized = 1;
- Tcl_CreateExitHandler(SocketExitHandler, (ClientData) NULL);
+ TclCreateLateExitHandler(SocketExitHandler, (ClientData) NULL);
winSock.hModule = LoadLibraryA("wsock32.dll");