Tcl Source Code

Check-in [318c6b1966]
Login

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

Overview
Comment:win: searching for FQDN in user-name should be utf-8 safe (user-name could contain non-ascii utf-8 chars)
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA3-256: 318c6b196696c7451b0f5aacb8eb0b19b5e511584743dd7e8f801afaa394e1ad
User & Date: sebres 2018-05-28 13:13:39.287
Context
2018-06-04
13:49
fixes [92564326a9] if compiled on some x86 systems (with dirent64 but without DIR64, partially cherr... check-in: 32babd8ff2 user: sebres tags: core-8-5-branch
2018-05-28
13:17
merge 8.5 check-in: 34e362c775 user: sebres tags: core-8-6-branch
13:13
win: searching for FQDN in user-name should be utf-8 safe (user-name could contain non-ascii utf-8 c... check-in: 318c6b1966 user: sebres tags: core-8-5-branch
12:05
merge-integrate sebres-bug-9e6b569963-8-5-branch to 8.5 check-in: b65ecf6cb7 user: sebres tags: core-8-5-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to win/tclWinFile.c.
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
	Tcl_MutexUnlock(&initializeMutex);
    }

    if (apistubs == 1) {
	USER_INFO_1 *uiPtr;
	Tcl_DString ds;
	int nameLen, rc;
	char *domain;
	WCHAR *wName, *wHomeDir, *wDomain;
	WCHAR buf[MAX_PATH];

	rc = 0;
	nameLen = -1;
	wDomain = NULL;
	domain = strchr(name, '@');
	if (domain == NULL) {
	    const char *ptr;
	    
	    /* no domain - firstly check it's the current user */
	    if ( (ptr = TclpGetUserName(&ds)) != NULL 
	      && strcasecmp(name, ptr) == 0
	    ) {







|






|







1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
	Tcl_MutexUnlock(&initializeMutex);
    }

    if (apistubs == 1) {
	USER_INFO_1 *uiPtr;
	Tcl_DString ds;
	int nameLen, rc;
	const char *domain;
	WCHAR *wName, *wHomeDir, *wDomain;
	WCHAR buf[MAX_PATH];

	rc = 0;
	nameLen = -1;
	wDomain = NULL;
	domain = Tcl_UtfFindFirst(name, '@');
	if (domain == NULL) {
	    const char *ptr;
	    
	    /* no domain - firstly check it's the current user */
	    if ( (ptr = TclpGetUserName(&ds)) != NULL 
	      && strcasecmp(name, ptr) == 0
	    ) {