From f6fa411d6cffd59155f8afbacad8c17db74d100d Mon Sep 17 00:00:00 2001
From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Thu, 3 Jun 2010 00:25:32 +0200
Subject: [PATCH] make sure the config it returned when called without code
---
tests/support/server.tcl | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 551e24d11..07e5e8ad7 100644
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -236,11 +236,10 @@ proc start_server {options {code undefined}} {
exit 1
}
+ set ::tags [lrange $::tags 0 end-[llength $tags]]
kill_server $srv
} else {
+ set ::tags [lrange $::tags 0 end-[llength $tags]]
set _ $srv
}
-
- # remove tags
- set ::tags [lrange $::tags 0 end-[llength $tags]]
}