percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2026-04-17 01:01:39 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fixed a bug in Quoter->split_unquote, added several tests for find_renamed_cols

Browse Source
This commit is contained in:
Brian Fraser
2012-11-08 06:13:43 -03:00
parent 4d9805a004
commit 57b3706f1a
3 changed files with 130 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2335,12 +2335,18 @@ sub quote_val {
sub split_unquote {
my ( $self, $db_tbl, $default_db ) = @_;
$db_tbl =~ s/`//g;
my ( $db, $tbl ) = split(/[.]/, $db_tbl);
if ( !$tbl ) {
$tbl = $db;
$db = $default_db;
}
for ($db, $tbl) {
next unless $_;
s/\A`//;
s/`\z//;
s/``/`/;
}
return ($db, $tbl);
}
@@ -3437,7 +3443,9 @@ sub is_cluster_node {
PTDEBUG && _d($sql);
my $row = $self->{dbh}->selectrow_arrayref($sql);
PTDEBUG && _d(defined $row ? @$row : 'undef');
$self->{is_cluster_node} = $row && $row->[0] ? 1 : 0;
$self->{is_cluster_node} = $row && $row->[1]
? ($row->[1] eq 'ON' || $row->[1] eq '1')
: 0;
return $self->{is_cluster_node};
}