diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-07 10:11:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-07 10:11:47 (GMT) |
commit | 925dea4994de1e572a6fc32a4645b2477ecbfa36 (patch) | |
tree | acc8fb9d85083d1bcf75a2a5dc491a85bd929bd5 /generic | |
parent | fe7f00117928ce81ae146b33181ba20a87b2584c (diff) | |
parent | 8c2dab88b5e6232496e646c1f31e6d6e0ab907ff (diff) | |
download | tcl-925dea4994de1e572a6fc32a4645b2477ecbfa36.zip tcl-925dea4994de1e572a6fc32a4645b2477ecbfa36.tar.gz tcl-925dea4994de1e572a6fc32a4645b2477ecbfa36.tar.bz2 |
merge trunk
turn pkgb.so into a Tcl8 interoperability test
library: Whatever Tcl9 looks like, loading pkgb.so in Tcl 8 should
either result in an error-message, either succeed, but never crash.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclStubLib.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index 9a2e063..ba5864d 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -119,7 +119,7 @@ TclInitStubs( while (*p && (*p == *q)) { p++; q++; } - if (*p) { + if (*p || isDigit(*q)) { /* Construct error message */ Tcl_PkgRequireEx(interp, "Tcl", version, 1, NULL); return NULL; |