diff options
author | dgp <dgp@noemail.net> | 2012-12-06 21:10:19 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2012-12-06 21:10:19 (GMT) |
commit | 4b326f1fd8edd515faf989328400c9d342e1c8dc (patch) | |
tree | 7f6810c5ac1568c79cd20c2bdff3297bb1e86542 /generic/tclStubLib.c | |
parent | 797e38bb6cfb39ff086fc61c02ec64dd9d883c38 (diff) | |
parent | a0f289b6787a316f2d4f4ca4cbdf3128fa30e9bf (diff) | |
download | tcl-4b326f1fd8edd515faf989328400c9d342e1c8dc.zip tcl-4b326f1fd8edd515faf989328400c9d342e1c8dc.tar.gz tcl-4b326f1fd8edd515faf989328400c9d342e1c8dc.tar.bz2 |
Tcl_InitStubs("8.5",1) would succeed in an "8.50" interp. Fixed.
FossilOrigin-Name: 5930a12b49555ef615fd644cddea5f81b0a05e89
Diffstat (limited to 'generic/tclStubLib.c')
-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 91012fd..0efaf50 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -111,7 +111,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; |