summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--generic/tclUtil.c2
-rw-r--r--tests/list.test4
2 files changed, 5 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++;
diff --git a/tests/list.test b/tests/list.test
index aab165c..5a002a9 100644
--- a/tests/list.test
+++ b/tests/list.test
@@ -105,6 +105,10 @@ test list-3.1 {SetListFromAny and lrange/concat results} {
slowsort {fred julie alex carol bill annie}
} {alex annie bill carol fred julie}
+test list-4.1 {Bug 3173086} {
+ string is list "{[list \\\\\}]}"
+} 1
+
# cleanup
::tcltest::cleanupTests
return