diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-06-20 07:44:32 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-06-20 07:44:32 (GMT) |
| commit | e83954d81f5ad30df0736d1cb12f5240bb8e896c (patch) | |
| tree | bcc7064efa50ae367f8843e46d36b864e91b24af /win/tclWinInit.c | |
| parent | 2de684d18bf96b3de8c6e42f5aafbdb832096475 (diff) | |
| parent | 58e07be6174a8195b83da655731626e99b605c86 (diff) | |
| download | tcl-e83954d81f5ad30df0736d1cb12f5240bb8e896c.zip tcl-e83954d81f5ad30df0736d1cb12f5240bb8e896c.tar.gz tcl-e83954d81f5ad30df0736d1cb12f5240bb8e896c.tar.bz2 | |
Merge trunk
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 4234ceb..5c8ca91 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -516,14 +516,14 @@ TclpSetVariables( Tcl_SetVar2(interp, "env", "HOME", Tcl_DStringValue(&ds), TCL_GLOBAL_ONLY); } else { - /* None of HOME, HOMEDRIVE, HOMEPATH exists. Try USERPROFILE */ - ptr = Tcl_GetVar2(interp, "env", "USERPROFILE", TCL_GLOBAL_ONLY); - if (ptr != NULL && ptr[0]) { - Tcl_SetVar2(interp, "env", "HOME", ptr, TCL_GLOBAL_ONLY); - } else { - /* Last resort */ - Tcl_SetVar2(interp, "env", "HOME", "c:\\", TCL_GLOBAL_ONLY); - } + /* None of HOME, HOMEDRIVE, HOMEPATH exists. Try USERPROFILE */ + ptr = Tcl_GetVar2(interp, "env", "USERPROFILE", TCL_GLOBAL_ONLY); + if (ptr != NULL && ptr[0]) { + Tcl_SetVar2(interp, "env", "HOME", ptr, TCL_GLOBAL_ONLY); + } else { + /* Last resort */ + Tcl_SetVar2(interp, "env", "HOME", "c:\\", TCL_GLOBAL_ONLY); + } } } |