Merge pull request #408 from percona/PT-1344

PBM-144 Updated MasterSlave to support hosts without port

bin/pt-archiver

@@ -3745,6 +3745,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-heartbeat

@@ -321,6 +321,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-kill

@@ -4027,6 +4027,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-online-schema-change

@@ -4281,8 +4281,7 @@ sub recurse_to_slaves {
       PTDEBUG && _d('Connected to', $dp->as_string($slave_dsn));
    };
    if ( $EVAL_ERROR ) {
-      #TODO REMOVE DEBUG
+      print STDERR "Cannot connect to ", $dp->as_string($slave_dsn), "\n"
-      print STDERR "1> Cannot connect to ", $dp->as_string($slave_dsn), "\n"
          or die "Cannot print: $OS_ERROR";
       return;
    }
@@ -4350,6 +4349,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-query-digest

@@ -10675,6 +10675,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-slave-find

@@ -2435,6 +2435,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-slave-restart

@@ -2846,6 +2846,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-table-checksum

@@ -5299,6 +5299,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

bin/pt-table-sync

@@ -6844,6 +6844,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }

lib/MasterSlave.pm

@@ -272,6 +272,7 @@ sub _find_slaves_by_processlist {
    grep { $_ }
    map  {
       my ( $host ) = $_->{host} =~ m/^([^:]+):/;
+      $host ||= $_->{host};
       if ( $host eq 'localhost' ) {
          $host = '127.0.0.1'; # Replication never uses sockets.
       }