Attachment "2884203.patch" to
ticket [2884203fff]
added by
dgp
2009-10-28 03:26:19.
Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.66.2.9
diff -u -r1.66.2.9 tclPathObj.c
--- generic/tclPathObj.c 20 Aug 2009 14:59:53 -0000 1.66.2.9
+++ generic/tclPathObj.c 27 Oct 2009 20:22:53 -0000
@@ -2005,6 +2005,7 @@
TclFSNormalizeToUniquePath(interp, copy, cwdLen-1,
(fsPathPtr->nativePathPtr == NULL ? &clientData : NULL));
fsPathPtr->normPathPtr = copy;
+ Tcl_IncrRefCount(fsPathPtr->normPathPtr);
if (clientData != NULL) {
fsPathPtr->nativePathPtr = clientData;
}