diff options
| -rw-r--r-- | generic/tclCompExpr.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 077d595..3fdcc22 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -1932,6 +1932,12 @@ ParseLexeme( return (end-start); } else { unsigned char lexeme; + const char *p = start; + while (p < end) { + if (!isalnum(UCHAR(*p++))) { + goto number; + } + } ParseLexeme(end, numBytes-(end-start), &lexeme, NULL); if ((NODE_TYPE & lexeme) == BINARY) { goto number; |