Tcl Source Code

Artifact [83933a7d6d]
Login

Artifact 83933a7d6d2e64a933e095d5f17a1d54e5f686e2:

Attachment "tclWinPipe.c.diff" to ticket [554068ffff] added by vincentdarley 2002-06-14 18:45:39.
Index: tclWinPipe.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinPipe.c,v
retrieving revision 1.24
diff -b -u -r1.24 tclWinPipe.c
--- tclWinPipe.c	24 Mar 2002 11:41:51 -0000	1.24
+++ tclWinPipe.c	14 Jun 2002 11:43:22 -0000
@@ -1592,6 +1592,11 @@
 		Tcl_DStringAppend(&ds, "\\\"", 2);
 		start = special + 1;
 	    }
+	    if (*special == '{') {
+		Tcl_DStringAppend(&ds, start, special - start);
+		Tcl_DStringAppend(&ds, "\\{", 2);
+		start = special + 1;
+	    }
 	    if (*special == '\0') {
 		break;
 	    }