percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-02-27 02:00:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

Merge lp:~percona-toolkit-dev/percona-toolkit/staging-test-suite-error-fixes r362

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-15 21:24:47 -06:00
parent 4bd763b52c d92c85733e
commit 1481494ef1
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->();
}