From 5bde345b62e89154c0dfe9f36adad96e97e69323 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 6 Dec 2002 23:22:08 +0000
Subject: 	* generic/tclIOUtil.c (TclFinalizeFilesystem): reset statics
 to 	their original values on finalize to allow reuse of the library.

---
 generic/tclIOUtil.c | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 059348d..2145fa2 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIOUtil.c,v 1.66 2002/12/04 13:09:24 vincentdarley Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.67 2002/12/06 23:22:08 hobbs Exp $
  */
 
 #include "tclInt.h"
@@ -643,7 +643,18 @@ TclFinalizeFilesystem() {
 	}
 	filesystemList = tmpFsRecPtr;
     }
-    /* Now filesystemList is NULL */
+    /*
+     * Now filesystemList is NULL.  Reset statics to original state.
+     */
+    statProcList = NULL;
+    accessProcList = NULL;
+    openFileChannelProcList = NULL;
+    filesystemList = &nativeFilesystemRecord;
+    filesystemIteratorsInProgress = 0;
+    filesystemWantToModify = 0;
+#ifdef TCL_THREADS
+    filesystemOkToModify = NULL;
+#endif
 }
 
 /*
-- 
cgit v0.12