diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-10 10:04:21 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-06-10 10:04:21 (GMT) |
commit | 9e4ed28a238efd124e6fa9dd85cb91ed4916473b (patch) | |
tree | 6272b1bf851d84d79b36409eff4b39cd6db9eef8 | |
parent | ec20c7abb7c8f4f38eecfa6593196057e0f7c824 (diff) | |
download | tcl-bug_3613671.zip tcl-bug_3613671.tar.gz tcl-bug_3613671.tar.bz2 |
unwrapping some of the complexitybug_3613671
-rw-r--r-- | win/tclWinFile.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index f64d583..027c290 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -3217,10 +3217,15 @@ TclpFileOwnedByCurrentUser( Tcl_Interp *interp, Tcl_Obj *pathObj) { + const Tcl_Filesystem *fsPtr; + if (Tcl_FSConvertToPathType(NULL, pathObj) != TCL_OK) { return 0; } - return (Tcl_FSAccess(pathObj, F_OK) == 0); + if (Tcl_FSGetFileSystemForPath(pathPtr) != &tclNativeFilesystem) { + return 0; + } + return (NativeAccess(Tcl_FSGetNativePath(pathObj), F_OK) == 0); } /* |