From 7359ccdd3b4e79736c5590cb0ff4872f3fb7bc18 Mon Sep 17 00:00:00 2001
From: Carlos Salguero <carlos.salguero@percona.com>
Date: Fri, 4 Aug 2017 19:21:53 -0300
Subject: [PATCH] PT-186 New fix to make all other tests to pass

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

diff --git a/bin/pt-online-schema-change b/bin/pt-online-schema-change
index 9814fd6c..4974fd1c 100755
--- a/bin/pt-online-schema-change
+++ b/bin/pt-online-schema-change
@@ -10166,13 +10166,13 @@ sub find_renamed_cols {
 
    my %renames;
    while ( $alter =~ /$alter_change_col_re/g ) {
-      my ($orig, $new) = map { $tp->ansi_to_legacy($_) } lc($1), lc($2);
+      my ($orig, $new) = map { $tp->ansi_to_legacy($_) } $1, $2;
       next unless $orig && $new;
       my (undef, $orig_tbl) = Quoter->split_unquote($orig);
       my (undef, $new_tbl)  = Quoter->split_unquote($new);
       # Silly but plausible: CHANGE COLUMN same_name same_name ...
       next if lc($orig_tbl) eq lc($new_tbl);
-      $renames{$orig_tbl} = $new_tbl;
+      $renames{lc($orig_tbl)} = $new_tbl;
    }
    PTDEBUG && _d("Renamed columns (old => new): ", Dumper(\%renames));
    return \%renames;