percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-20 02:44:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fixed systax error in Perl 5.8.8

Browse Source
This commit is contained in:
Carlos Salguero
2016-08-15 10:39:13 -03:00
parent affd3af9d2
commit ac9cf1b7a9
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4886,8 +4886,8 @@ sub wait {
my $watched = 0; my $watched = 0;
@lagged_slaves = grep { @lagged_slaves = grep {
my $slave_name = $_->{cxn}->name(); my $slave_name = $_->{cxn}->name();
grep {$slave_name eq $_->name()} @{$slaves // []} grep {$slave_name eq $_->name()} @{$slaves || []}
} @lagged_slaves; } @lagged_slaves;
for my $i ( 0..$#lagged_slaves ) { for my $i ( 0..$#lagged_slaves ) {
my $lag = $get_lag->($lagged_slaves[$i]->{cxn}); my $lag = $get_lag->($lagged_slaves[$i]->{cxn});
@@ -4930,6 +4930,9 @@ sub wait {
sub _d { sub _d {
my ($package, undef, $line) = caller 0; my ($package, undef, $line) = caller 0;
# Backslash found where operator expected at ./pt-online-schema-change line 4933, near "@_ = map { (my $temp = $_) =~ s/\"
# (Might be a runaway multi-line // string starting on line 4889)
@_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; } @_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }
map { defined $_ ? $_ : 'undef' } map { defined $_ ? $_ : 'undef' }
@_; @_;