Attachment "1972879.patch" to
ticket [1972879fff]
added by
dgp
2008-06-23 11:08:37.
Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.67
diff -u -r1.67 tclPathObj.c
--- generic/tclPathObj.c 27 Apr 2008 22:21:31 -0000 1.67
+++ generic/tclPathObj.c 23 Jun 2008 04:05:51 -0000
@@ -1596,7 +1596,14 @@
srcFsPathPtr = PATHOBJ(pathPtr);
if (srcFsPathPtr->translatedPathPtr == NULL) {
if (PATHFLAGS(pathPtr) != 0) {
- retObj = Tcl_FSGetNormalizedPath(interp, pathPtr);
+ int numBytes;
+ const char *bytes = Tcl_GetStringFromObj(pathPtr, &numBytes);
+ Tcl_Obj *copy = Tcl_NewStringObj(bytes, numBytes);
+ Tcl_IncrRefCount(copy);
+ retObj = Tcl_FSGetTranslatedPath(interp, copy);
+ srcFsPathPtr->translatedPathPtr = retObj;
+ Tcl_IncrRefCount(retObj);
+ Tcl_DecrRefCount(copy);
} else {
/*
* It is a pure absolute, normalized path object. This is
