Tcl Source Code: Artifact [1dd52e0f76]

Artifact 1dd52e0f763ce971fef66d6fa587d186f18c8cc5:

Attachment "tclWinFile.patch" to ticket [19ea026e43] added by bogdan1234 2015-04-22 13:41:12. (unpublished)

--- tclWinFile_0a2e3bb2d9.c	2015-04-22 14:35:07.396699500 +0200
+++ tclWinFile_new.c	2015-04-22 14:33:42.798240500 +0200
@@ -668,7 +668,7 @@
     HANDLE hFile;
     DWORD returnedLength;
 
-    hFile = CreateFile(linkDirPath, desiredAccess, 0, NULL, OPEN_EXISTING,
+    hFile = CreateFile(linkDirPath, desiredAccess, FILE_SHARE_READ, NULL, OPEN_EXISTING,
 	    FILE_FLAG_OPEN_REPARSE_POINT | FILE_FLAG_BACKUP_SEMANTICS, NULL);
 
     if (hFile == INVALID_HANDLE_VALUE) {