diff options
| author | stanton <stanton@noemail.net> | 1998-06-25 16:11:27 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1998-06-25 16:11:27 (GMT) |
| commit | a268c61bfad3024639844f985155ba06f4b1c8ec (patch) | |
| tree | bf282d40c9ffd3e8b604503c543c519153e03ec8 /unix | |
| parent | b1a09b3103791a99e1696a9d803f297b84454756 (diff) | |
| download | tcl-a268c61bfad3024639844f985155ba06f4b1c8ec.zip tcl-a268c61bfad3024639844f985155ba06f4b1c8ec.tar.gz tcl-a268c61bfad3024639844f985155ba06f4b1c8ec.tar.bz2 | |
lint
FossilOrigin-Name: 397fdc3b99cff5e4c68cf350a0ba02cb96758f6e
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclUnixInit.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/unix/tclUnixInit.c b/unix/tclUnixInit.c index 69df49c..56df95d 100644 --- a/unix/tclUnixInit.c +++ b/unix/tclUnixInit.c @@ -172,7 +172,8 @@ TclPlatformInit(interp) * name.version and the minor version number is in name.release. */ - if ((strchr(name.release, '.') != NULL) || !isdigit(name.version[0])) { + if ((strchr(name.release, '.') != NULL) + || !isdigit(UCHAR(name.version[0]))) { Tcl_SetVar2(interp, "tcl_platform", "osVersion", name.release, TCL_GLOBAL_ONLY); } else { |