diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-09-17 14:32:28 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-09-17 14:32:28 (GMT) |
| commit | 56763a32c0e55f0c454f9d958cae56033640d80f (patch) | |
| tree | e0086edf90b575f28012974b29b82cfe44a107f3 /unix/tclUnixFile.c | |
| parent | 98f40f7dfb43b05f93fda380e4f936f0c49ecdf6 (diff) | |
| parent | a680486042c9cb4f65899abb15dbc6bdcec5ec0a (diff) | |
| download | tcl-56763a32c0e55f0c454f9d958cae56033640d80f.zip tcl-56763a32c0e55f0c454f9d958cae56033640d80f.tar.gz tcl-56763a32c0e55f0c454f9d958cae56033640d80f.tar.bz2 | |
merge 8.6 (fix attempt for [02d5d65d70adab97], however the small bottleneck is still visible)
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 2ddcfce..f3fd730 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -1082,9 +1082,9 @@ TclNativeCreateNativeRep( Tcl_Obj *validPathPtr; Tcl_Size len; - if (TclFSCwdIsNative()) { + if (TclFSCwdIsNative() || Tcl_FSGetPathType(pathPtr) == TCL_PATH_ABSOLUTE) { /* - * The cwd is native, which means we can use the translated path + * The cwd is native (or path is absolute), use the translated path * without worrying about normalization (this will also usually be * shorter so the utf-to-external conversion will be somewhat faster). */ |