Tcl Source Code

Artifact [d90ef2a747]
Login

Artifact d90ef2a747219464fde9df9ffb836d93d9a043e9:

Attachment "win_path.patch" to ticket [817577ffff] added by mdejong 2003-10-05 01:57:36.
2003-10-04  Chengye Mao <[email protected]>

	* win/tclWinPipe.c: fixed a bug in BuildCommandLine.
	This bug built a command line with a missing space between
	tclpipe.dll and the following arguments.  It caused error
	in Windows 98 when exec command.com (e.g. dir) [Bug 789040]

Index: win/tclWinPipe.c
===================================================================
RCS file: /cvsroot/tcl/tcl/win/tclWinPipe.c,v
retrieving revision 1.33.2.3
diff -u -r1.33.2.3 tclWinPipe.c
--- win/tclWinPipe.c	28 Sep 2003 10:29:52 -0000	1.33.2.3
+++ win/tclWinPipe.c	4 Oct 2003 18:55:31 -0000
@@ -1577,8 +1577,9 @@
 	    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') {