From 3afe2b65b645f137437e776a6e0290a1e4e661cf Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Tue, 19 Jan 2010 02:01:01 +0000
Subject: prevent %runcert hash growth when clearing items

---
 tests/runtests.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tests')

diff --git a/tests/runtests.pl b/tests/runtests.pl
index 2b74f6b47..d08e17714 100755
--- a/tests/runtests.pl
+++ b/tests/runtests.pl
@@ -632,9 +632,9 @@ sub stopserver {
     foreach my $server (@killservers) {
         if($run{$server}) {
             $pidlist .= "$run{$server} ";
-            $runcert{$server} = 0;
             $run{$server} = 0;
         }
+        $runcert{$server} = 0 if($runcert{$server});
     }
     killpid($verbose, $pidlist);
     #
@@ -2542,9 +2542,9 @@ sub singletest {
         foreach my $server (@killservers) {
             if($run{$server}) {
                 $pidlist .= "$run{$server} ";
-                $runcert{$server} = 0;
                 $run{$server} = 0;
             }
+            $runcert{$server} = 0 if($runcert{$server});
         }
         killpid($verbose, $pidlist);
         #
@@ -2920,9 +2920,9 @@ sub stopservers {
                 }
             }
             $pidlist .= "$run{$server} ";
-            $runcert{$server} = 0;
             $run{$server} = 0;
         }
+        $runcert{$server} = 0 if($runcert{$server});
     }
     killpid($verbose, $pidlist);
     #
-- 
cgit v1.2.3