percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-19 10:34:01 +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

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

@@ -4886,7 +4886,7 @@ sub wait {
my $watched = 0;
@lagged_slaves = grep {
my $slave_name = $_->{cxn}->name();
grep {$slave_name eq $_->name()} @{$slaves // []}
grep {$slave_name eq $_->name()} @{$slaves || []}
} @lagged_slaves;
for my $i ( 0..$#lagged_slaves ) {
@@ -4930,6 +4930,9 @@ sub wait {
sub _d {
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 { defined $_ ? $_ : 'undef' }
@_;