percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-18 16:40:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge ptc-run-time

Browse Source
This commit is contained in:
Daniel Nichter
2012-08-24 15:27:11 -06:00
parent 1bf0cfa08a 22a4068bea
commit d016b170b3
4 changed files with 242 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Cxn.pm
View File

@@ -150,11 +150,8 @@ sub set_dbh {
PTDEBUG && _d($dbh, 'Setting dbh');
# Set stuff for this dbh (i.e. initialize it).
if ( !exists $self->{NAME_lc}
|| (defined $self->{NAME_lc} && $self->{NAME_lc}) ) {
$dbh->{FetchHashKeyName} = 'NAME_lc';
}
$dbh->{FetchHashKeyName} = 'NAME_lc' if $self->{NAME_lc};
# 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';