diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-31 18:26:18 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-31 18:26:18 (GMT) |
| commit | 54e5b3e00162f459d5095f75a2ce2fb614f1df88 (patch) | |
| tree | 16d2e88d2188ecfd24a881f77f5b4b05c933c260 /generic/tclStrToD.c | |
| parent | 64c7a18b2572c509dc7b21b0c726a736515482e3 (diff) | |
| download | tcl-bug_3401704.zip tcl-bug_3401704.tar.gz tcl-bug_3401704.tar.bz2 | |
Use better 'isalnum' predicate ; add test case.bug_3401704
Diffstat (limited to 'generic/tclStrToD.c')
| -rwxr-xr-x | generic/tclStrToD.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index f98f8c3..1892d70 100755 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -1121,7 +1121,7 @@ TclParseNumber( while(0) { checktrail: - if ((c>='0')&&(c<='9')||(c>='A')&&(c<='Z')||(c>='a')&&(c<='z')||(c=='_')) { + if (isalnum(UCHAR(c))||(c=='_')) { /* bareword prefixed by Nan, Inf, etc. */ acceptState = INITIAL; } |