percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-21 02:00:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

Catch lost cleanup task (should rarely happen).

Browse Source
This commit is contained in:
Daniel Nichter
2012-04-02 19:20:56 -06:00
parent 34ada21344
commit 5eaa565566
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/CleanupTask.pm
View File

@@ -49,8 +49,13 @@ sub new {
sub DESTROY { sub DESTROY {
my ($self) = @_; my ($self) = @_;
my $task = $self->{task}; my $task = $self->{task};
if ( ref $task ) {
PTDEBUG && _d('Calling cleanup task', $task); PTDEBUG && _d('Calling cleanup task', $task);
$task->(); $task->();
}
else {
warn "Lost cleanup task";
}
return; return;
} }