You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2009/09/14 18:04:00 UTC
svn commit: r814718 - /tcl/websh/trunk/src/apachetests/apachetest.tcl
Author: ronnie
Date: Mon Sep 14 16:03:59 2009
New Revision: 814718
URL: http://svn.apache.org/viewvc?rev=814718&view=rev
Log:
- fixed apachetest::startserver (for windows)
Modified:
tcl/websh/trunk/src/apachetests/apachetest.tcl
Modified: tcl/websh/trunk/src/apachetests/apachetest.tcl
URL: http://svn.apache.org/viewvc/tcl/websh/trunk/src/apachetests/apachetest.tcl?rev=814718&r1=814717&r2=814718&view=diff
==============================================================================
--- tcl/websh/trunk/src/apachetests/apachetest.tcl (original)
+++ tcl/websh/trunk/src/apachetests/apachetest.tcl Mon Sep 14 16:03:59 2009
@@ -116,11 +116,11 @@
# startserver - start the server with 'options'.
-proc apachetest::startserver { options } {
+proc apachetest::startserver {{options ""}} {
variable binname
if { [catch {
- eval exec $binname -X -f \
- "[file join [pwd] server.conf]" $options
+ eval exec [list $binname] -X -f \
+ "[file join [pwd] conf server.conf]" $options
} err] } {
puts $err
}
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org