summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorandreas_kupries <akupries@shaw.ca>2006-09-25 17:27:30 (GMT)
committerandreas_kupries <akupries@shaw.ca>2006-09-25 17:27:30 (GMT)
commitec417aac0d3264df32f305c1e64a8a3336d1144a (patch)
treee2c81d0debb8bfdd5414cdc94ea611c45bfe5b1b
parentdfdd2bf4859375909d0094b1c89280448e7544b5 (diff)
downloadtcl-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--ChangeLog7
-rw-r--r--generic/tclBasic.c12
2 files changed, 13 insertions, 6 deletions
diff --git a/ChangeLog b/ChangeLog
index 0cdffcd..56b2e61 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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