Posted to tcl by dgp at Thu Apr 25 17:45:29 GMT 2013view raw
- Index: generic/tclEvent.c
- ==================================================================
- --- generic/tclEvent.c
- +++ generic/tclEvent.c
- @@ -1020,11 +1020,11 @@
- {
- if (inExit != 0) {
- Tcl_Panic("TclInitSubsystems called while exiting");
- }
- - if (subsystemsInitialized == 0) {
- + if (subsystemsInitialized < 2) {
- /*
- * Double check inside the mutex. There are definitly calls back into
- * this routine from some of the functions below.
- */
- @@ -1059,10 +1059,11 @@
- * mutexes. */
- TclInitIOSubsystem(); /* Inits a tsd key (noop). */
- TclInitEncodingSubsystem(); /* Process wide encoding init. */
- TclpSetInterfaces();
- TclInitNamespaceSubsystem();/* Register ns obj type (mutexed). */
- + subsystemsInitialized = 2;
- }
- TclpInitUnlock();
- }
- TclInitNotifier();
- }