diff options
| author | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
|---|---|---|
| committer | gahr <gahr@gahr.ch> | 2016-04-04 11:25:12 (GMT) |
| commit | 540521771129cfb3a851405ae4306448fea3e769 (patch) | |
| tree | 75feaeff0a9a36b53252789c8aebb45dbc0b2e49 /generic/tclBasic.c | |
| parent | 4b301d844892c52ec5fecce47f03c91a551639ca (diff) | |
| parent | b4d78562f6e023b1bf1accc8649c1a93b14be8d6 (diff) | |
| download | tcl-540521771129cfb3a851405ae4306448fea3e769.zip tcl-540521771129cfb3a851405ae4306448fea3e769.tar.gz tcl-540521771129cfb3a851405ae4306448fea3e769.tar.bz2 | |
merge trunktip_444
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index e5d7406..505f6c2 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -580,11 +580,12 @@ Tcl_CreateInterp(void) iPtr->packageUnknown = NULL; /* TIP #268 */ +#if (TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE) if (getenv("TCL_PKG_PREFER_LATEST") == NULL) { iPtr->packagePrefer = PKG_PREFER_STABLE; - } else { + } else +#endif iPtr->packagePrefer = PKG_PREFER_LATEST; - } iPtr->cmdCount = 0; TclInitLiteralTable(&iPtr->literalTable); |