summaryrefslogtreecommitdiffstats
path: root/generic/tclStubLib.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2012-12-06 21:03:22 (GMT)
committerdgp <dgp@users.sourceforge.net>2012-12-06 21:03:22 (GMT)
commit92b20ad57f4d24e7d2d915c6059e0decb570276d (patch)
treefeeb7b2822e763a3922f3adb9a9b5949f7a50f5b /generic/tclStubLib.c
parent7af24435f8657785d9dd3cc145b595af1d692866 (diff)
downloadtcl-92b20ad57f4d24e7d2d915c6059e0decb570276d.zip
tcl-92b20ad57f4d24e7d2d915c6059e0decb570276d.tar.gz
tcl-92b20ad57f4d24e7d2d915c6059e0decb570276d.tar.bz2
Tcl_InitStubs("8.5",1) would succeed in an "8.50" interp. Fixed.
Diffstat (limited to 'generic/tclStubLib.c')
-rw-r--r--generic/tclStubLib.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c
index 871d7ea..9774731 100644
--- a/generic/tclStubLib.c
+++ b/generic/tclStubLib.c
@@ -118,7 +118,7 @@ Tcl_InitStubs(
while (*p && (*p == *q)) {
p++; q++;
}
- if (*p) {
+ if (*p || isDigit(*q)) {
/* Construct error message */
Tcl_PkgRequireEx(interp, "Tcl", version, 1, NULL);
return NULL;