diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-23 11:42:28 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2025-09-23 11:42:28 (GMT) |
| commit | 937f3434c1300404d5643a2943e5dfba734d4022 (patch) | |
| tree | b8592a5bd817c261a73dd263c3d73fecfbfcd587 /unix/tclUnixInit.c | |
| parent | fe630e70816bac05148415d429920697fd4f7cef (diff) | |
| download | tcl-937f3434c1300404d5643a2943e5dfba734d4022.zip tcl-937f3434c1300404d5643a2943e5dfba734d4022.tar.gz tcl-937f3434c1300404d5643a2943e5dfba734d4022.tar.bz2 | |
Fix for fix. If getenv returns NULL, Tcl_DString buffer still needs initialization
Diffstat (limited to 'unix/tclUnixInit.c')
| -rw-r--r-- | unix/tclUnixInit.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 8c16d74..6460c90 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -482,6 +482,8 @@ TclpInitLibraryPath( if (str != NULL) { Tcl_ExternalToUtfDString(NULL, str, -1, &buffer); str = Tcl_DStringValue(&buffer); + } else { + Tcl_DStringInit(&buffer); } if ((str != NULL) && (str[0] != '\0')) { |