Differences From Artifact [128ae5d4b4]:

• File win/tclWinInit.c — part of check-in [4760a5fda3] at 2025-09-23 12:19:16 on branch main — Merge 9.0 - Fix [c9e68eb6ca] getenv checks (user: apnadkarni size: 20895) [more...]

To Artifact [92af0e1d06]:

• File win/tclWinInit.c — part of check-in [2ee45c3227] at 2025-09-24 03:08:05 on branch main — Fix buffer size check for GetEnvironmentVariable. Tx @cjmcdonald (user: apnadkarni size: 20873) [more...]

353
354
355
356
357
358
359
360
361
362
363
364
365
366
367

	}
    }
    if (shortlib == lib) {
	Tcl_Panic("no '/' character found in lib");
    }

    dw = GetEnvironmentVariableW(L"TCL_LIBRARY", wBuf, MAX_PATH);
    if (dw <= 0 || dw >= (sizeof(buf) / sizeof(buf[0]))) {
	return;
    }
    if (WideCharToMultiByte(
	    CP_UTF8, 0, wBuf, -1, buf, MAX_PATH * 3, NULL, NULL) == 0) {
	return;
    }

|

353
354
355
356
357
358
359
360
361
362
363
364
365
366
367

	}
    }
    if (shortlib == lib) {
	Tcl_Panic("no '/' character found in lib");
    }

    dw = GetEnvironmentVariableW(L"TCL_LIBRARY", wBuf, MAX_PATH);
    if (dw <= 0 || dw >= MAX_PATH) {
	return;
    }
    if (WideCharToMultiByte(
	    CP_UTF8, 0, wBuf, -1, buf, MAX_PATH * 3, NULL, NULL) == 0) {
	return;
    }