diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-07 08:31:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-03-07 08:31:44 (GMT) |
| commit | efadd7170eafc8ffacab61f82cf3878cc7285ff1 (patch) | |
| tree | 99d87a4b0c5e77209cb0eb3c1f462d6bcd5a0f3c /generic/tclEnv.c | |
| parent | 3e2014216af5a54eec83355257ed2f95f9d8bf41 (diff) | |
| parent | 65baf6c706d7cfa12cfbc06610f7e9a51c5c81e8 (diff) | |
| download | tcl-efadd7170eafc8ffacab61f82cf3878cc7285ff1.zip tcl-efadd7170eafc8ffacab61f82cf3878cc7285ff1.tar.gz tcl-efadd7170eafc8ffacab61f82cf3878cc7285ff1.tar.bz2 | |
Merge 8.6. Remove unneeded code from init.tcl
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 2c7db0d..36c3cf9 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -135,6 +135,18 @@ TclSetupEnv( } p2++; p2[-1] = '\0'; +#if defined(_WIN32) + /* + * Enforce PATH and COMSPEC to be all uppercase. This eliminates + * additional trace logic otherwise required in init.tcl. + */ + + if (strcasecmp(p1, "PATH") == 0) { + p1 = "PATH"; + } else if (strcasecmp(p1, "COMSPEC") == 0) { + p1 = "COMSPEC"; + } +#endif obj1 = Tcl_NewStringObj(p1, -1); obj2 = Tcl_NewStringObj(p2, -1); Tcl_DStringFree(&envString); |