diff options
| -rw-r--r-- | generic/tclPathObj.c | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/generic/tclPathObj.c b/generic/tclPathObj.c index ab5c4e6..eb19096 100644 --- a/generic/tclPathObj.c +++ b/generic/tclPathObj.c @@ -1367,7 +1367,6 @@ AppendPath( const char *bytes; Tcl_Obj *copy = Tcl_DuplicateObj(head); -#if 1 /* * This is likely buggy when dealing with virtual filesystem drivers * that use some character other than "/" as a path separator. I know @@ -1382,39 +1381,6 @@ AppendPath( } else { TclpNativeJoinPath(copy, bytes); } -#else - bytes = Tcl_GetStringFromObj(copy, &numBytes); - - /* - * Should we perhaps use 'Tcl_FSPathSeparator'? But then what about the - * Windows special case? Perhaps we should just check if cwd is a root - * volume. We should never get numBytes == 0 in this code path. - */ - - switch (tclPlatform) { - case TCL_PLATFORM_UNIX: - if (bytes[numBytes-1] != '/') { - Tcl_AppendToObj(copy, "/", 1); - } - break; - - case TCL_PLATFORM_WINDOWS: - /* - * We need the extra 'numBytes != 2', and ':' checks because a volume - * relative path doesn't get a '/'. For example 'glob C:*cat*.exe' - * will return 'C:cat32.exe' - */ - - if (bytes[numBytes-1] != '/' && bytes[numBytes-1] != '\\') { - if (numBytes!= 2 || bytes[1] != ':') { - Tcl_AppendToObj(copy, "/", 1); - } - } - break; - } - - Tcl_AppendObjToObj(copy, tail); -#endif return copy; } |