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 | d9465a5be23e98e24bdbbc57ffee7b9459a565f8 (patch) | |
| tree | 2adc45c2f7b7ddaada73b165f929d598dba94c5b /generic/tclParse.c | |
| parent | 484de8b9879c4344a7f31bf0940aa2eaf943d30f (diff) | |
| download | tcl-d9465a5be23e98e24bdbbc57ffee7b9459a565f8.zip tcl-d9465a5be23e98e24bdbbc57ffee7b9459a565f8.tar.gz tcl-d9465a5be23e98e24bdbbc57ffee7b9459a565f8.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; |