[PATCH] Fix a test failure with Perl 5.12.0

[Niko Tyni]

Perl 5.12.0 introduces new uninitialized warnings for the lc* and uc*
functions, breaking the test suite.
---
 lib/DBM/Deep/Storage/DBI.pm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/lib/DBM/Deep/Storage/DBI.pm b/lib/DBM/Deep/Storage/DBI.pm
index 8b6c403..3ce8813 100644
--- a/lib/DBM/Deep/Storage/DBI.pm
+++ b/lib/DBM/Deep/Storage/DBI.pm
@@ -57,7 +57,9 @@ sub open {
     ) or die $DBI::error;
 
     # Should we use the same method as done in new() if passed a $dbh?
+    { no warnings 'uninitialized';
     (undef, $self->{driver}) = map lc, DBI->parse_dsn( $self->{dbi}{dsn} );
+    }
 
     return 1;
 }
-- 
1.7.1


--CE+1k2dSO48ffgeK--