percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-10 05:00:45 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add Logger::stop_online_logging().

Browse Source
This commit is contained in:
Daniel Nichter
2013-05-20 14:03:39 -07:00
parent 20c3bd6c29
commit 99592409e6
2 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
bin/pt-agent
View File

@@ -4975,13 +4975,20 @@ sub _log {
return;
}
sub DESTROY {
sub stop_online_logging {
my $self = shift;
if ( $self->online_logging ) {
if ( $self->_thread && $self->_thread->is_running() ) {
my @stop :shared = (undef, undef);
$self->_message_queue->enqueue(\@stop); # stop the thread
$self->_thread->join();
}
$self->online_logging(0);
return;
}
sub DESTROY {
my $self = shift;
$self->stop_online_logging();
return;
}
@@ -5365,8 +5372,8 @@ sub main {
$logger->info("pt-agent exit $exit_status, oktorun $oktorun");
# Cause Logger::DESTORY to be called.
$logger = undef;
$logger->stop_online_logging();
$logger->info('Waiting for logging thread to stop...');
return $exit_status;
}

11
lib/Percona/Agent/Logger.pm
View File

@@ -207,13 +207,20 @@ sub _log {
return;
}
sub DESTROY {
sub stop_online_logging {
my $self = shift;
if ( $self->online_logging ) {
if ( $self->_thread && $self->_thread->is_running() ) {
my @stop :shared = (undef, undef);
$self->_message_queue->enqueue(\@stop); # stop the thread
$self->_thread->join();
}
$self->online_logging(0);
return;
}
sub DESTROY {
my $self = shift;
$self->stop_online_logging();
return;
}