diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-27 10:22:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-27 10:22:30 (GMT) |
| commit | a7534bc7ed966b9b399e86be1c6cc2004baf379c (patch) | |
| tree | f45973080c93357d9df8c61ea5f4f9ca2b039451 /generic/tclPkg.c | |
| parent | 179f28ba4605cb66cd358eb8d6d57b42e7bf5bb9 (diff) | |
| download | tcl-a7534bc7ed966b9b399e86be1c6cc2004baf379c.zip tcl-a7534bc7ed966b9b399e86be1c6cc2004baf379c.tar.gz tcl-a7534bc7ed966b9b399e86be1c6cc2004baf379c.tar.bz2 | |
Make TCL_MAJOR_VERSION/TCL_MINOR_VERSION/TCL_STUB_MAGIC available to Tcl_InitStubs() arguments. Useful for debugging and detection of stub incompatibilities (e.g. for Tcl9)
Diffstat (limited to 'generic/tclPkg.c')
| -rw-r--r-- | generic/tclPkg.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclPkg.c b/generic/tclPkg.c index f6e8b20..86777a8 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -1895,7 +1895,7 @@ Tcl_PkgInitStubsCheck( { const char *actualVersion = Tcl_PkgPresent(interp, "Tcl", version, 0); - if (exact && actualVersion) { + if ((exact&1) && actualVersion) { const char *p = version; int count = 0; |