mirror of
https://github.com/percona/percona-toolkit.git
synced 2026-03-03 03:01:07 +08:00
PT-186 New fix to make all other tests to pass
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user