Attachment "956063.patch" to
ticket [956063ffff]
added by
dgp
2004-05-19 04:57:09.
Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.30
diff -u -r1.30 tclPathObj.c
--- generic/tclPathObj.c 23 Apr 2004 12:09:37 -0000 1.30
+++ generic/tclPathObj.c 18 May 2004 21:54:26 -0000
@@ -763,8 +763,9 @@
* and this would therefore contradict our 'file join'
* documentation).
*/
- if (str[0] != '.' && ((tclPlatform != TCL_PLATFORM_WINDOWS)
- || (strchr(str, '\\') == NULL))) {
+ if (str[0] != '.' && (NULL == strchr(str, '/'))
+ && ((tclPlatform != TCL_PLATFORM_WINDOWS)
+ || (strchr(str, '\\') == NULL))) {
if (res != NULL) Tcl_DecrRefCount(res);
return TclNewFSPathObj(elt, str, len);
}