prevent %runcert hash growth when clearing items

This commit is contained in:
Yang Tse 2010-01-19 02:01:01 +00:00
Родитель afdc3d81e9
Коммит 3afe2b65b6
1 изменённых файлов: 3 добавлений и 3 удалений

Просмотреть файл

@ -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);
#