diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-16 15:32:20 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-12-16 15:32:20 (GMT) |
commit | ee2c8b324fa577fbacf55ec66e2f51d8eec04ef0 (patch) | |
tree | f96e1b8929174ca857914cdf986f0a9123c911c4 /win/tclWinFile.c | |
parent | 7795886d4958ae36fecb7eeaf2514ce1dcf960dd (diff) | |
download | tcl-ee2c8b324fa577fbacf55ec66e2f51d8eec04ef0.zip tcl-ee2c8b324fa577fbacf55ec66e2f51d8eec04ef0.tar.gz tcl-ee2c8b324fa577fbacf55ec66e2f51d8eec04ef0.tar.bz2 |
TIP #592 implementation: Stop support for Windows XP, Server 2003, Vista, Server 2008
Diffstat (limited to 'win/tclWinFile.c')
-rw-r--r-- | win/tclWinFile.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 38edd87..728f675 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -264,12 +264,7 @@ WinLink( TclWinConvertError(GetLastError()); } else if (linkAction & TCL_CREATE_SYMBOLIC_LINK) { - if (!tclWinProcs.createSymbolicLink) { - /* - * Can't symlink files. - */ - Tcl_SetErrno(ENOTDIR); - } else if (tclWinProcs.createSymbolicLink(linkSourcePath, linkTargetPath, + if (CreateSymbolicLinkW(linkSourcePath, linkTargetPath, 0x2 /* SYMBOLIC_LINK_FLAG_ALLOW_UNPRIVILEGED_CREATE */)) { /* * Success! |