Remove pidfile after killing serve
This commit is contained in:
parent
b13b5c5a4a
commit
1292c6f6a3
@ -2747,6 +2747,13 @@ sub stop_all_servers () {
|
||||
My::SafeProcess::shutdown(0, # shutdown timeout 0 => kill
|
||||
started(all_servers()));
|
||||
|
||||
# Remove pidfiles
|
||||
foreach my $server ( all_servers() )
|
||||
{
|
||||
my $pid_file= $server->if_exist('pid-file');
|
||||
unlink($pid_file) if defined $pid_file;
|
||||
}
|
||||
|
||||
# Mark servers as stopped
|
||||
map($_->{proc}= undef, all_servers());
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user