percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-10-19 17:04:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cxn.pm: Set NAME_lc by default

Browse Source
This commit is contained in:
Brian Fraser
2012-07-22 23:37:39 -03:00
parent 5d8be022e9
commit 02c6421a25
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Cxn.pm
View File

@@ -103,7 +103,7 @@ sub new {
dsn_name => $dp->as_string($dsn, [qw(h P S)]), dsn_name => $dp->as_string($dsn, [qw(h P S)]),
hostname => '', hostname => '',
set => $args{set}, set => $args{set},
NAME_lc => $args{NAME_lc}, NAME_lc => defined($args{NAME_lc}) ? $args{NAME_lc} : 1,
dbh_set => 0, dbh_set => 0,
OptionParser => $o, OptionParser => $o,
DSNParser => $dp, DSNParser => $dp,

4
t/lib/Cxn.t
View File

@@ -114,7 +114,7 @@ my ($row) = $cxn->dbh()->selectrow_hashref('SHOW MASTER STATUS');
ok( ok(
exists $row->{binlog_ignore_db}, exists $row->{binlog_ignore_db},
"FetchHashKeyName = NAME_lc", "FetchHashKeyName = NAME_lc",
); ) or diag(Dumper($row));
test_var_val( test_var_val(
$cxn->dbh(), $cxn->dbh(),
@@ -163,7 +163,7 @@ $cxn->connect();
ok( ok(
exists $row->{binlog_ignore_db}, exists $row->{binlog_ignore_db},
"Reconnect FetchHashKeyName = NAME_lc", "Reconnect FetchHashKeyName = NAME_lc",
); ) or diag(Dumper($row));
test_var_val( test_var_val(
$cxn->dbh(), $cxn->dbh(),