diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-11-25 21:24:06 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-11-25 21:24:06 (GMT) |
| commit | 61855b36b423d2293d99ccb6381e6622980e2cd9 (patch) | |
| tree | 2adc45c2f7b7ddaada73b165f929d598dba94c5b /generic/tclParse.c | |
| parent | 51acb4e23f6c50b6cd0029ab6503034ce76bea05 (diff) | |
| download | tcl-61855b36b423d2293d99ccb6381e6622980e2cd9.zip tcl-61855b36b423d2293d99ccb6381e6622980e2cd9.tar.gz tcl-61855b36b423d2293d99ccb6381e6622980e2cd9.tar.bz2 | |
One way to fix the parser of $-substitution accepting non-ASCII varnames.
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index e475fb8..1523eb3 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -1438,6 +1438,9 @@ Tcl_ParseVarName( offset = Tcl_UtfToUniChar(utfBytes, &ch); } c = UCHAR(ch); + if (c != ch) { + break; + } if (isalnum(c) || (c == '_')) { /* INTL: ISO only, UCHAR. */ src += offset; numBytes -= offset; |