diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-02 23:08:00 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-08-02 23:08:00 (GMT) |
| commit | 1bc2496e012681e5f83cbe757b04d58c57083b07 (patch) | |
| tree | 233f9fd3e29f2b9fb6280ac50e8f2e251e08c7bf /win/tclWinFile.c | |
| parent | 6042bb0be18a7102155afc95163120cb6b2a35ea (diff) | |
| parent | 40947c7d3eeb124dfd51a08dbdfc556a7a402bd6 (diff) | |
| download | tcl-1bc2496e012681e5f83cbe757b04d58c57083b07.zip tcl-1bc2496e012681e5f83cbe757b04d58c57083b07.tar.gz tcl-1bc2496e012681e5f83cbe757b04d58c57083b07.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index fc0d7f5..7bff89e 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -1420,9 +1420,9 @@ TclpGetUserHome( domain = Tcl_UtfFindFirst(name, '@'); if (domain == NULL) { const char *ptr; - + /* no domain - firstly check it's the current user */ - if ( (ptr = TclpGetUserName(&ds)) != NULL + if ( (ptr = TclpGetUserName(&ds)) != NULL && strcasecmp(name, ptr) == 0 ) { /* try safest and fastest way to get current user home */ @@ -1445,7 +1445,7 @@ TclpGetUserHome( Tcl_DStringInit(&ds); wName = Tcl_UtfToUniCharDString(name, nameLen, &ds); while (NetUserGetInfo(wDomain, wName, 1, (LPBYTE *) &uiPtr) != 0) { - /* + /* * user does not exists - if domain was not specified, * try again using current domain. */ @@ -1560,7 +1560,7 @@ NativeAccess( return 0; } - /* + /* * If it's not a directory (assume file), do several fast checks: */ if (!(attr & FILE_ATTRIBUTE_DIRECTORY)) { @@ -1989,7 +1989,7 @@ NativeStat( */ fileHandle = CreateFile(nativePath, GENERIC_READ, - FILE_SHARE_READ | FILE_SHARE_WRITE | FILE_SHARE_DELETE, + FILE_SHARE_READ | FILE_SHARE_WRITE | FILE_SHARE_DELETE, NULL, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS | FILE_FLAG_OPEN_REPARSE_POINT, NULL); |