PT-186 New fix to make all other tests to pass

This commit is contained in:
Carlos Salguero
2017-08-04 19:21:53 -03:00
parent 331a88c9ea
commit 7359ccdd3b

View File

@@ -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;