diff options
| author | sebres <sebres@users.sourceforge.net> | 2018-05-28 13:17:18 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2018-05-28 13:17:18 (GMT) |
| commit | a2ce3dab9b2939f21c06358081d0977ec937e106 (patch) | |
| tree | 681fee1cc67f483e4879f1937724274c305d05ab | |
| parent | 6966f0a2b1e1699483efc0f5b692224d10b07ab5 (diff) | |
| parent | 6a4d06759ed9c9ac3c94860c9d7b17c076f28b7e (diff) | |
| download | tcl-a2ce3dab9b2939f21c06358081d0977ec937e106.zip tcl-a2ce3dab9b2939f21c06358081d0977ec937e106.tar.gz tcl-a2ce3dab9b2939f21c06358081d0977ec937e106.tar.bz2 | |
merge 8.5
| -rw-r--r-- | win/tclWinFile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 5ca704a..8bb572b 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -1441,14 +1441,14 @@ TclpGetUserHome( Tcl_DString ds; int nameLen = -1; int rc = 0; - char *domain; + const char *domain; WCHAR *wName, *wHomeDir, *wDomain; WCHAR buf[MAX_PATH]; Tcl_DStringInit(bufferPtr); wDomain = NULL; - domain = strchr(name, '@'); + domain = Tcl_UtfFindFirst(name, '@'); if (domain == NULL) { const char *ptr; |