summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclCompExpr.c6
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;