← Back to branch summary

~percona-toolkit-dev/percona-toolkit/release-2.2.2

« back to all changes in this revision

Viewing changes to lib/Cxn.pm

Merge hostname-bug-947893-2.2.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Cxn.pm
166
166
 
167
167
   # Update the cxn's name.  Until we connect, the DSN parts
168
168
   # h and P are used.  Once connected, use @@hostname.
169
 
   my $sql = 'SELECT @@hostname, @@server_id';
 
169
   my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
170
170
   PTDEBUG && _d($dbh, $sql);
171
 
   my ($hostname, $server_id) = $dbh->selectrow_array($sql);
 
171
   my ($server_id, $hostname) = $dbh->selectrow_array($sql);
172
172
   PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
173
173
   if ( $hostname ) {
174
174
      $self->{hostname} = $hostname;