diff options
| -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; |