diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-03 11:40:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-03 11:40:51 (GMT) |
| commit | 09531013443ef55893b05545dc67b5c5c304609e (patch) | |
| tree | 44706be0c6631bff61570b0db1b0b1f221da8672 /win/tclWinFile.c | |
| parent | d27e883b17a58409f62f0aee186b31d850df992d (diff) | |
| download | tcl-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
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 6 |
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. */ |