projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
SYN SYN
[p5sagit/p5-mst-13.2.git]
/
win32
/
perllib.c
diff --git
a/win32/perllib.c
b/win32/perllib.c
index
fae3346
..
e2b245d
100644
(file)
--- a/
win32/perllib.c
+++ b/
win32/perllib.c
@@
-372,6
+372,10
@@
DllMain(HANDLE hModule, /* DLL module handle */
*/
case DLL_PROCESS_DETACH:
EndSockets();
+#if defined(USE_THREADS) || defined(USE_ITHREADS)
+ if (PL_curinterp)
+ FREE_THREAD_KEY;
+#endif
break;
/* The attached process creates a new thread. */