From 1642acd2357ee8176e6356f5ee007fd4a9b80b45 Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Sun, 3 Mar 2013 08:26:23 -0700
Subject: [PATCH] Fix error in t/lib/DSNParser.t.

---
 t/lib/DSNParser.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/t/lib/DSNParser.t b/t/lib/DSNParser.t
index a0ea47fe..ea416e56 100644
--- a/t/lib/DSNParser.t
+++ b/t/lib/DSNParser.t
@@ -561,7 +561,13 @@ like(
 );
 
 $dp->prop('set-vars',  { time_zoen => { val => 'UTC' }});
-($out, undef) = full_output(sub { $dp->get_dbh($dp->get_cxn_params($dsn), {}) });
+$out = output(
+   sub {
+      my $dbh = $dp->get_dbh($dp->get_cxn_params($dsn), {});
+      $dbh->disconnect();
+   },
+   stderr => 1,
+);
 
 like(
    $out,