diff options
| author | davygrvy <davygrvy@noemail.net> | 2004-02-01 09:37:49 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@noemail.net> | 2004-02-01 09:37:49 (GMT) |
| commit | 58bd6e2b489503641c1c6220a2d27df07e4739d5 (patch) | |
| tree | 9cec7739c8b28e65aeeee0a14e5e9d1154b5c1cf /win/tclWinPipe.c | |
| parent | 50149b44552f2b92126e73d9df9b076cc0ba9097 (diff) | |
| download | tcl-58bd6e2b489503641c1c6220a2d27df07e4739d5.zip tcl-58bd6e2b489503641c1c6220a2d27df07e4739d5.tar.gz tcl-58bd6e2b489503641c1c6220a2d27df07e4739d5.tar.bz2 | |
* tests/winPipe.test: more pass-thru commandline verifications.
* win/tclWinPipe.c (BuildCommandLine): Special case quoting for
'{' not required by the c-runtimes's _setargv().
* win/tclAppInit.c: Removed our custom setargv() in favor of
the one provided by the c-runtime. [Bug 672938]
FossilOrigin-Name: 072413cbd2d64b34773884c181f281e2f256105c
Diffstat (limited to 'win/tclWinPipe.c')
| -rw-r--r-- | win/tclWinPipe.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index 93d4a17..36ff112 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinPipe.c,v 1.40 2004/01/20 05:18:22 davygrvy Exp $ + * RCS: @(#) $Id: tclWinPipe.c,v 1.41 2004/02/01 09:37:49 davygrvy Exp $ */ #include "tclWinInt.h" @@ -1581,10 +1581,9 @@ BuildCommandLine( arg = executable; } else { arg = argv[i]; + Tcl_DStringAppend(&ds, " ", 1); } - if(Tcl_DStringLength(&ds) > 0) Tcl_DStringAppend(&ds, " ", 1); - quote = 0; if (arg[0] == '\0') { quote = 1; @@ -1632,11 +1631,6 @@ BuildCommandLine( 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; } |