From 02c6421a25b4bda1c17f2439d173cdbaee0820fb Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Sun, 22 Jul 2012 23:37:39 -0300
Subject: [PATCH] Cxn.pm: Set NAME_lc by default

---
 lib/Cxn.pm  | 2 +-
 t/lib/Cxn.t | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Cxn.pm b/lib/Cxn.pm
index debfacce..e898f183 100644
--- a/lib/Cxn.pm
+++ b/lib/Cxn.pm
@@ -103,7 +103,7 @@ sub new {
       dsn_name     => $dp->as_string($dsn, [qw(h P S)]),
       hostname     => '',
       set          => $args{set},
-      NAME_lc      => $args{NAME_lc},
+      NAME_lc      => defined($args{NAME_lc}) ? $args{NAME_lc} : 1,
       dbh_set      => 0,
       OptionParser => $o,
       DSNParser    => $dp,
diff --git a/t/lib/Cxn.t b/t/lib/Cxn.t
index d227f717..75355b76 100644
--- a/t/lib/Cxn.t
+++ b/t/lib/Cxn.t
@@ -114,7 +114,7 @@ my ($row) = $cxn->dbh()->selectrow_hashref('SHOW MASTER STATUS');
 ok(
    exists $row->{binlog_ignore_db},
    "FetchHashKeyName = NAME_lc",
-);
+) or diag(Dumper($row));
 
 test_var_val(
    $cxn->dbh(),
@@ -163,7 +163,7 @@ $cxn->connect();
 ok(
    exists $row->{binlog_ignore_db},
    "Reconnect FetchHashKeyName = NAME_lc",
-);
+) or diag(Dumper($row));
 
 test_var_val(
    $cxn->dbh(),