Package: libdbm-deep-perl Version: 1.0022-1 Severity: important User: debian-p...@lists.debian.org Usertags: perl-5.12-transition Tags: patch
This package fails to build with perl_5.12.0-1 from experimental: t/01_basic.t .................... ok Use of uninitialized value $_ in lc at /build/niko-libdbm-deep-perl_1.0022-1-i386-4RBZoH/libdbm-deep-perl- 1.0022/blib/lib/DBM/Deep/Storage/DBI.pm line 60. # Tests were run but no plan was declared and done_testing() was not seen. t/02_hash.t ..................... Dubious, test returned 255 (wstat 65280, 0xff00) All 50 subtests passed [...] Apparently Test::More gives up because of the warning. The attached rather hackish patch fixes the immediate problem. -- Niko Tyni nt...@debian.org
>From 982bff2c101a90c56d5314138b868eb8b56a6050 Mon Sep 17 00:00:00 2001 From: Niko Tyni <nt...@debian.org> Date: Tue, 4 May 2010 09:22:24 +0300 Subject: [PATCH] Fix a test failure with Perl 5.12.0 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