Tcl Source Code

Artifact dd5e17028d8d594d9b89c2507149e452fa597720:

Attachment "1035775.patch" to ticket [1035775fff] added by dgp 2004-11-17 07:14:08.

---

Index: generic/tclIOUtil.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIOUtil.c,v
retrieving revision 1.112
diff -u -r1.112 tclIOUtil.c
--- generic/tclIOUtil.c	15 Oct 2004 04:01:31 -0000	1.112
+++ generic/tclIOUtil.c	17 Nov 2004 00:12:31 -0000
@@ -642,13 +642,7 @@
     int filesystemEpoch; 
 {
     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey);
-#ifndef TCL_THREADS
-    tsdPtr->filesystemEpoch = theFilesystemEpoch;
-#else
-    Tcl_MutexLock(&filesystemMutex);
-    tsdPtr->filesystemEpoch = theFilesystemEpoch;
-    Tcl_MutexUnlock(&filesystemMutex);
-#endif
+    (void) FsGetFirstFilesystem();
     return (filesystemEpoch == tsdPtr->filesystemEpoch);
 }