diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-03-03 21:13:30 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-03-03 21:13:30 (GMT) |
| commit | 1acef870ce0e0cf57797bb424bc426048560cd20 (patch) | |
| tree | 39aeb39051104d8d0ea80ffa444c92865c510c60 /generic/tclUtil.c | |
| parent | d0868b4811997e6b0496fdc07624346450e5a4b1 (diff) | |
| download | tcl-1acef870ce0e0cf57797bb424bc426048560cd20.zip tcl-1acef870ce0e0cf57797bb424bc426048560cd20.tar.gz tcl-1acef870ce0e0cf57797bb424bc426048560cd20.tar.bz2 | |
Correct flaw in the rewrite handling [list \\\\\}].
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 9358ede..558d77b 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -756,7 +756,7 @@ TclScanElement( p++; break; } - if ((p[1] == '{') || (p[1] == '}')) { + if ((p[1] == '{') || (p[1] == '}') || (p[1] == '\\')) { extra++; length -= (length > 0); p++; |