percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-01 18:25:59 +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->();
}

4
lib/CleanupTask.pm
View File

@@ -57,9 +57,9 @@ sub DESTROY {
PTDEBUG && _d('Calling cleanup task', $task);
# Temporarily restore STDOUT and STDERR to what they were
# when the object was created
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->();
}