From 24758caa4ca1630fa41bdeed7c11097f90f588cc Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Thu, 4 Apr 2013 15:31:21 -0600
Subject: [PATCH] Use /*!50038 @@hostname*/ in Cxn.pm.

---
 lib/Cxn.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Cxn.pm b/lib/Cxn.pm
index 554c5126..14b6546b 100644
--- a/lib/Cxn.pm
+++ b/lib/Cxn.pm
@@ -166,9 +166,9 @@ sub set_dbh {
 
    # Update the cxn's name.  Until we connect, the DSN parts
    # h and P are used.  Once connected, use @@hostname.
-   my $sql = 'SELECT @@hostname, @@server_id';
+   my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
    PTDEBUG && _d($dbh, $sql);
-   my ($hostname, $server_id) = $dbh->selectrow_array($sql);
+   my ($server_id, $hostname) = $dbh->selectrow_array($sql);
    PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
    if ( $hostname ) {
       $self->{hostname} = $hostname;