summaryrefslogtreecommitdiffstats
path: root/generic/tclUtil.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-03-03 21:13:30 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-03-03 21:13:30 (GMT)
commit33babada06e91831ef25c24d6930a111463995a1 (patch)
tree39aeb39051104d8d0ea80ffa444c92865c510c60 /generic/tclUtil.c
parent3369c9129fa90ad0a083438bb7b066a1df3ee8d6 (diff)
downloadtcl-33babada06e91831ef25c24d6930a111463995a1.zip
tcl-33babada06e91831ef25c24d6930a111463995a1.tar.gz
tcl-33babada06e91831ef25c24d6930a111463995a1.tar.bz2
Correct flaw in the rewrite handling &#91;list \\\\\}].
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r--generic/tclUtil.c2
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++;