summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-03 11:40:51 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-03 11:40:51 (GMT)
commit09531013443ef55893b05545dc67b5c5c304609e (patch)
tree44706be0c6631bff61570b0db1b0b1f221da8672
parentd27e883b17a58409f62f0aee186b31d850df992d (diff)
downloadtcl-09531013443ef55893b05545dc67b5c5c304609e.zip
tcl-09531013443ef55893b05545dc67b5c5c304609e.tar.gz
tcl-09531013443ef55893b05545dc67b5c5c304609e.tar.bz2
suggested fix for Bug 3092089: [file normalize] can remove path component,
and for Bug 3587096: startup error message when exe in folder with junction with limited rights
-rw-r--r--win/tclWinFile.c6
1 files changed, 6 insertions, 0 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index a9b321d..a1da83f 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -709,6 +709,12 @@ NativeReadReparse(
FILE_FLAG_OPEN_REPARSE_POINT|FILE_FLAG_BACKUP_SEMANTICS, NULL);
if (hFile == INVALID_HANDLE_VALUE) {
+ hFile = (*tclWinProcs->createFileProc)(linkDirPath, 0, 0,
+ NULL, OPEN_EXISTING,
+ FILE_FLAG_OPEN_REPARSE_POINT|FILE_FLAG_BACKUP_SEMANTICS, NULL);
+ }
+
+ if (hFile == INVALID_HANDLE_VALUE) {
/*
* Error creating directory.
*/