From ac9cf1b7a9369b81d831cbce62fe2e1acbec4f6c Mon Sep 17 00:00:00 2001
From: Carlos Salguero <carlos.salguero@percona.com>
Date: Mon, 15 Aug 2016 10:39:13 -0300
Subject: [PATCH] Fixed systax error in Perl 5.8.8

---
 bin/pt-online-schema-change | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/pt-online-schema-change b/bin/pt-online-schema-change
index f8360d19..ad72ce5c 100755
--- a/bin/pt-online-schema-change
+++ b/bin/pt-online-schema-change
@@ -4886,8 +4886,8 @@ sub wait {
       my $watched = 0;
       @lagged_slaves = grep {
          my $slave_name = $_->{cxn}->name();
-         grep {$slave_name eq $_->name()} @{$slaves // []}
-                            } @lagged_slaves;
+         grep {$slave_name eq $_->name()} @{$slaves || []}
+                             } @lagged_slaves;
 
       for my $i ( 0..$#lagged_slaves ) {
          my $lag = $get_lag->($lagged_slaves[$i]->{cxn});
@@ -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' }
         @_;