diff options
| -rw-r--r-- | generic/tclUtil.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index fb5b21c..2a0d51a 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -944,6 +944,10 @@ TclScanElement( int preferEscape = 0; /* Use preferences to track whether to use */ int preferBrace = 0; /* CONVERT_MASK mode. */ int braceCount = 0; /* Count of all braces '{' '}' seen. */ + + if ((*src == '#') && !(*flagPtr & TCL_DONT_QUOTE_HASH)) { + preferBrace = 1; + } #endif if ((p == NULL) || (length == 0) || ((*p == '\0') && (length == -1))) { |