diff options
| author | stanton <stanton> | 1998-06-25 16:11:27 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-06-25 16:11:27 (GMT) |
| commit | 690834e1c77f90f43bc6f2f2d028a75d5b84c023 (patch) | |
| tree | bf282d40c9ffd3e8b604503c543c519153e03ec8 /unix/tclUnixInit.c | |
| parent | 49c256e178a749d91ee41cfbcb8b200e8206ba4a (diff) | |
| download | tcl-690834e1c77f90f43bc6f2f2d028a75d5b84c023.zip tcl-690834e1c77f90f43bc6f2f2d028a75d5b84c023.tar.gz tcl-690834e1c77f90f43bc6f2f2d028a75d5b84c023.tar.bz2 | |
lint
Diffstat (limited to 'unix/tclUnixInit.c')
| -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 { |