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]]
 }
-- 
GitLab