Remove pidfile after killing serve

parent 54b19234
...@@ -2747,6 +2747,13 @@ sub stop_all_servers () { ...@@ -2747,6 +2747,13 @@ sub stop_all_servers () {
My::SafeProcess::shutdown(0, # shutdown timeout 0 => kill My::SafeProcess::shutdown(0, # shutdown timeout 0 => kill
started(all_servers())); 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 # Mark servers as stopped
map($_->{proc}= undef, all_servers()); map($_->{proc}= undef, all_servers());
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment