PT-1707 Updated MasterSlave in all scripts

This commit is contained in:
Carlos Salguero
2019-11-26 10:11:26 -03:00
parent 3d78e61e1d
commit a2159c259d
9 changed files with 90 additions and 9 deletions

View File

@@ -2452,7 +2452,13 @@ sub find_slave_hosts {
sub _find_slaves_by_processlist {
my ( $self, $dsn_parser, $dbh, $dsn ) = @_;
my @connected_slaves = $self->get_connected_slaves($dbh);
my @slaves = $self->_process_slaves_list($dsn_parser, $dsn, \@connected_slaves);
return @slaves;
}
sub _process_slaves_list {
my ($self, $dsn_parser, $dsn, $connected_slaves) = @_;
my @slaves = map {
my $slave = $dsn_parser->parse("h=$_", $dsn);
$slave->{source} = 'processlist';
@@ -2464,8 +2470,11 @@ sub _find_slaves_by_processlist {
if ( $host eq 'localhost' ) {
$host = '127.0.0.1'; # Replication never uses sockets.
}
if ($host =~ m/::/) {
$host = '['.$host.']';
}
$host;
} $self->get_connected_slaves($dbh);
} @$connected_slaves;
return @slaves;
}