From 6a4d06759ed9c9ac3c94860c9d7b17c076f28b7e Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Mon, 28 May 2018 13:13:39 +0000
Subject: win: searching for FQDN in user-name should be utf-8 safe (user-name
 could contain non-ascii utf-8 chars)

---
 win/tclWinFile.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 0bed39e..3655321 100755
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -1468,14 +1468,14 @@ TclpGetUserHome(
 	USER_INFO_1 *uiPtr;
 	Tcl_DString ds;
 	int nameLen, rc;
-	char *domain;
+	const char *domain;
 	WCHAR *wName, *wHomeDir, *wDomain;
 	WCHAR buf[MAX_PATH];
 
 	rc = 0;
 	nameLen = -1;
 	wDomain = NULL;
-	domain = strchr(name, '@');
+	domain = Tcl_UtfFindFirst(name, '@');
 	if (domain == NULL) {
 	    const char *ptr;
 	    
-- 
cgit v0.12