Tcl Source Code

Check-in [5ed5ec73c0]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Slightly more correct: If FindFirstFile() fails, the error should be "no such file or directory" (ENOENT) not "permission denied" (EACCES).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 5ed5ec73c061bbea6ebbcd84986a4d463953535b
User & Date: jan.nijtmans 2013-03-20 13:39:50
Context
2013-03-20
15:26
dup test names check-in: 024ec31117 user: dgp tags: core-8-5-branch
13:41
Slightly more correct: If FindFirstFile() fails, the error should be "no such file or directory" (EN... check-in: d2de88281c user: jan.nijtmans tags: trunk
13:39
Slightly more correct: If FindFirstFile() fails, the error should be "no such file or directory" (EN... check-in: 5ed5ec73c0 user: jan.nijtmans tags: core-8-5-branch
11:18
Slightly more correct: If FindFirstFile() fails, the error should be "no such file or directory" (EN... check-in: aad700de84 user: jan.nijtmans tags: core-8-4-branch
2013-03-19
14:57
Handle the (unlikely) case that the file is deleted in between. Suggested by Harald Oehlmann (Thanks... check-in: 2314a4bd26 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to win/tclWinFile.c.

2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069

	    if (lasterror != ERROR_SHARING_VIOLATION) {
		TclWinConvertError(lasterror);
		return -1;
		}
	    hFind = (*tclWinProcs->findFirstFileProc)(nativePath, &ffd);
	    if (hFind == INVALID_HANDLE_VALUE) {
		TclWinConvertError(lasterror);
		return -1;
	    }
	    memcpy(&data, &ffd, sizeof(data));
	    FindClose(hFind);
	}

	attr = data.dwFileAttributes;







|







2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069

	    if (lasterror != ERROR_SHARING_VIOLATION) {
		TclWinConvertError(lasterror);
		return -1;
		}
	    hFind = (*tclWinProcs->findFirstFileProc)(nativePath, &ffd);
	    if (hFind == INVALID_HANDLE_VALUE) {
		TclWinConvertError(GetLastError());
		return -1;
	    }
	    memcpy(&data, &ffd, sizeof(data));
	    FindClose(hFind);
	}

	attr = data.dwFileAttributes;