diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-09-13 12:02:53 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-09-13 12:02:53 (GMT) |
| commit | fea5ae7451b1d841acd6266b003389aca6093b1a (patch) | |
| tree | 4c6391007cb243eb427b0435154e81a145239b96 /unix/tclUnixFile.c | |
| parent | 2474f2092fe30282bc4413e4ea29182b9f37c849 (diff) | |
| download | tcl-fea5ae7451b1d841acd6266b003389aca6093b1a.zip tcl-fea5ae7451b1d841acd6266b003389aca6093b1a.tar.gz tcl-fea5ae7451b1d841acd6266b003389aca6093b1a.tar.bz2 | |
even if cwd is non native, but path is not relative we can safely use translated path instead of normalized path;
fixes file access regression [02d5d65d70adab97]
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 c39e7b6..9769b13 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -1076,9 +1076,9 @@ TclNativeCreateNativeRep( Tcl_Obj *validPathPtr; int 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). */ |