From a0515f27955d5e7ee169b0951976107846e50651 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Fri, 15 Oct 2010 15:12:25 +1000 Subject: Properly allow the id to be set in bench.tcl Signed-off-by: Steve Bennett --- bench.tcl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'bench.tcl') diff --git a/bench.tcl b/bench.tcl index cd87220..d9c5e3a 100644 --- a/bench.tcl +++ b/bench.tcl @@ -551,7 +551,9 @@ proc mandel {xres yres infx infy supx supy} { if {[string compare [lindex $argv 0] "-batch"] == 0} { set batchmode 1 + set argv [lrange $argv 1 end] } +set ver [lindex $argv 0] bench {[while] busy loop} {whilebusyloop} bench {[for] busy loop} {forbusyloop} @@ -574,7 +576,7 @@ bench {wiki.tcl.tk/8566} {commonsub_test} bench {mandel} {mandel 60 60 -2 -1.5 1 1.5} if {$batchmode} { - if {![info exists ver]} { + if {$ver == ""} { if {[catch {info patchlevel} ver]} { set ver Jim[info version] } -- cgit v1.1