Fix the --dryrun option in releasetest.tcl.

FossilOrigin-Name: 0f9e549643ab94b0465e6891384dd20506708a8f
2014-12-29 19:54:10 +00:00
parent 620315840c
commit cb281a9a2c
3 changed files with 9 additions and 8 deletions
@@ -208,6 +208,7 @@ foreach {key value} [array get ::Platforms] {
 # one-line error message to show on the output.
 #
 proc count_tests_and_errors {logfile rcVar errmsgVar} {
+  if {$::DRYRUN} return
  upvar 1 $rcVar rc $errmsgVar errmsg
  set fd [open $logfile rb]
  set seen 0