diff options
| author | dgp <dgp@noemail.net> | 2012-12-06 21:03:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2012-12-06 21:03:22 (GMT) |
| commit | a0f289b6787a316f2d4f4ca4cbdf3128fa30e9bf (patch) | |
| tree | feeb7b2822e763a3922f3adb9a9b5949f7a50f5b /generic/tclStubLib.c | |
| parent | 1efefb9e37e47f50b788886f630f63f1a9d7df05 (diff) | |
| download | tcl-a0f289b6787a316f2d4f4ca4cbdf3128fa30e9bf.zip tcl-a0f289b6787a316f2d4f4ca4cbdf3128fa30e9bf.tar.gz tcl-a0f289b6787a316f2d4f4ca4cbdf3128fa30e9bf.tar.bz2 | |
Tcl_InitStubs("8.5",1) would succeed in an "8.50" interp. Fixed.
FossilOrigin-Name: a3ba72e837802dca8c5985ef0cd174d984a29e68
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 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; |