Tcl Source Code: Artifact [d1240b56ac]

Artifact d1240b56ac75bac7e6439d292b5ae780e5b7d9e3:

Attachment "normalize.patch" to ticket [3092089fff] added by dunkfan 2011-12-13 18:06:48.

*** tclWinFile.c	2011-12-12 15:27:26.000000000 +0100
--- tclWinFile.c.new	2011-12-12 15:31:17.000000000 +0100
***************
*** 668,674 ****
      HANDLE hFile;
      DWORD returnedLength;
  
!     hFile = CreateFile(linkDirPath, GENERIC_READ, 0, NULL, OPEN_EXISTING,
  	    FILE_FLAG_OPEN_REPARSE_POINT | FILE_FLAG_BACKUP_SEMANTICS, NULL);
  
      if (hFile == INVALID_HANDLE_VALUE) {
--- 668,674 ----
      HANDLE hFile;
      DWORD returnedLength;
  
!     hFile = CreateFile(linkDirPath, 0, 0, NULL, OPEN_EXISTING,
  	    FILE_FLAG_OPEN_REPARSE_POINT | FILE_FLAG_BACKUP_SEMANTICS, NULL);
  
      if (hFile == INVALID_HANDLE_VALUE) {