← Back to branch summary

~percona-toolkit-dev/percona-toolkit/fix-pqd-stats-bug-1249149

« back to all changes in this revision

Viewing changes to bin/pt-kill

Merge hostname-bug-947893-2.2.

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/pt-kill
5112
5112
 
5113
5113
   $dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
5114
5114
 
5115
 
   my $sql = 'SELECT @@hostname, @@server_id';
 
5115
   my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
5116
5116
   PTDEBUG && _d($dbh, $sql);
5117
 
   my ($hostname, $server_id) = $dbh->selectrow_array($sql);
 
5117
   my ($server_id, $hostname) = $dbh->selectrow_array($sql);
5118
5118
   PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
5119
5119
   if ( $hostname ) {
5120
5120
      $self->{hostname} = $hostname;