Tcl Source Code

Artifact 1a8bca3ca987d51780a4c10f4b039d343a740726:

Attachment "cwdfinal.patch" to ticket [1536142fff] added by dgp 2006-08-07 23:42:35.

---

Index: generic/tclIOUtil.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIOUtil.c,v
retrieving revision 1.77.2.29
diff -u -r1.77.2.29 tclIOUtil.c
--- generic/tclIOUtil.c	28 Mar 2006 10:52:38 -0000	1.77.2.29
+++ generic/tclIOUtil.c	7 Aug 2006 16:36:02 -0000
@@ -546,6 +546,7 @@
     /* Trash the cwd copy */
     if (tsdPtr->cwdPathPtr != NULL) {
 	Tcl_DecrRefCount(tsdPtr->cwdPathPtr);
+	tsdPtr->cwdPathPtr = NULL;
     }
     /* Trash the filesystems cache */
     fsRecPtr = tsdPtr->filesystemList;
@@ -556,6 +557,7 @@
 	}
 	fsRecPtr = tmpFsRecPtr;
     }
+    tsdPtr->initialized = 0;
 }
 
 int