diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-09-25 17:27:30 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-09-25 17:27:30 (GMT) |
| commit | ec417aac0d3264df32f305c1e64a8a3336d1144a (patch) | |
| tree | e2c81d0debb8bfdd5414cdc94ea611c45bfe5b1b | |
| parent | dfdd2bf4859375909d0094b1c89280448e7544b5 (diff) | |
| download | tcl-ec417aac0d3264df32f305c1e64a8a3336d1144a.zip tcl-ec417aac0d3264df32f305c1e64a8a3336d1144a.tar.gz tcl-ec417aac0d3264df32f305c1e64a8a3336d1144a.tar.bz2 | |
* generic/tclBasic.c: Reverted exposure of patchlevel in
registered core version when TIP#268 features are
activated. Better compatibility with existing packages.
Like Tk.
| -rw-r--r-- | ChangeLog | 7 | ||||
| -rw-r--r-- | generic/tclBasic.c | 12 |
2 files changed, 13 insertions, 6 deletions
@@ -1,3 +1,10 @@ +2006-09-25 Andreas Kupries <andreask@activestate.com> + + * generic/tclBasic.c: Reverted exposure of patchlevel in + registered core version when TIP#268 features are + activated. Better compatibility with existing packages. + Like Tk. + 2006-09-24 Miguel Sofer <msofer@users.sf.net> * generic/tclParse.c (Tcl_ParseCommand): also return an error if diff --git a/generic/tclBasic.c b/generic/tclBasic.c index d746ff5..9807a19 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.75.2.23 2006/09/22 01:26:22 andreas_kupries Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.75.2.24 2006/09/25 17:27:31 andreas_kupries Exp $ */ #include "tclInt.h" @@ -578,16 +578,16 @@ Tcl_CreateInterp() /* * Register Tcl's version number. - * TIP #268: Full patchlevel instead of just major.minor + * TIP#268: Expose information about its status, + * for runtime switches in the core library + * and tests. */ -#ifndef TCL_TIP268 Tcl_PkgProvideEx(interp, "Tcl", TCL_VERSION, (ClientData) &tclStubs); -#else + +#ifdef TCL_TIP268 Tcl_SetVar2(interp, "tcl_platform", "tip,268", "1", TCL_GLOBAL_ONLY); - - Tcl_PkgProvideEx(interp, "Tcl", TCL_PATCH_LEVEL, (ClientData) &tclStubs); #endif #ifdef Tcl_InitStubs #undef Tcl_InitStubs |