mirror of
https://github.com/percona/percona-toolkit.git
synced 2025-09-22 11:54:54 +00:00
Update Cxn in all tools.
This commit is contained in:
@@ -2281,9 +2281,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
@@ -2625,9 +2625,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
@@ -1782,9 +1782,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
@@ -5112,9 +5112,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
@@ -3741,9 +3741,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
@@ -3519,9 +3519,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
@@ -2450,9 +2450,9 @@ sub set_dbh {
|
|||||||
|
|
||||||
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
|
||||||
|
|
||||||
my $sql = 'SELECT @@hostname, @@server_id';
|
my $sql = 'SELECT @@server_id /*!50038 , @@hostname*/';
|
||||||
PTDEBUG && _d($dbh, $sql);
|
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);
|
PTDEBUG && _d($dbh, 'hostname:', $hostname, $server_id);
|
||||||
if ( $hostname ) {
|
if ( $hostname ) {
|
||||||
$self->{hostname} = $hostname;
|
$self->{hostname} = $hostname;
|
||||||
|
Reference in New Issue
Block a user