Artifact
702723cabd03eef047eac5ae67ef2eecea61b35b:
Attachment "tcltest.patch" to
ticket [2570363fff]
added by
sbron
2009-02-06 06:33:23.
Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.103
diff -u -r1.103 tcltest.tcl
--- library/tcltest/tcltest.tcl 13 Dec 2007 15:26:03 -0000 1.103
+++ library/tcltest/tcltest.tcl 5 Feb 2009 23:25:34 -0000
@@ -3331,7 +3331,7 @@
-option value ?-option value ...?"
return
}
- if {[catch {eval Configure $::env(TCLTEST_OPTIONS)} msg]} {
+ if {[catch {eval [linsert $::env(TCLTEST_OPTIONS) 0 Configure]} msg]} {
Warn "invalid TCLTEST_OPTIONS: \"$options\":\n $msg"
return
}