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

CleanupTasks: Older Perl compat

Browse Source
This commit is contained in:
Brian Fraser
2012-08-15 17:28:52 -03:00
parent 8c963bb007
commit d92c85733e
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/pt-online-schema-change
View File

@@ -5650,9 +5650,9 @@ sub DESTROY {
my $task = $self->{task};
if ( ref $task ) {
PTDEBUG && _d('Calling cleanup task', $task);
open local *STDOUT, ">&=", $self->{stdout_copy}
open local(*STDOUT), ">&=", $self->{stdout_copy}
if $self->{stdout_copy};
open local *STDERR, ">&=", $self->{stderr_copy}
open local(*STDERR), ">&=", $self->{stderr_copy}
if $self->{stderr_copy};
$task->();
}