r57637 - in /trunk/libdbm-deep-perl/debian: changelog patches/perl-5.12.patch patches/series

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Fri May  7 17:24:57 2010
New Revision: 57637

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57637
Log:
* Fix test failure with perl 5.12. (Closes: #580189)
  + new patch: perl-5.12.patch

Added:
    trunk/libdbm-deep-perl/debian/patches/perl-5.12.patch
Modified:
    trunk/libdbm-deep-perl/debian/changelog
    trunk/libdbm-deep-perl/debian/patches/series

Modified: trunk/libdbm-deep-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/changelog?rev=57637&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/changelog (original)
+++ trunk/libdbm-deep-perl/debian/changelog Fri May  7 17:24:57 2010
@@ -1,3 +1,10 @@
+libdbm-deep-perl (1.0022-2) unstable; urgency=low
+
+  * Fix test failure with perl 5.12. (Closes: #580189)
+    + new patch: perl-5.12.patch
+
+ -- Ansgar Burchardt <ansgar at 43-1.org>  Sat, 08 May 2010 02:20:12 +0900
+
 libdbm-deep-perl (1.0022-1) unstable; urgency=low
 
   [ Ansgar Burchardt ]

Added: trunk/libdbm-deep-perl/debian/patches/perl-5.12.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/patches/perl-5.12.patch?rev=57637&op=file
==============================================================================
--- trunk/libdbm-deep-perl/debian/patches/perl-5.12.patch (added)
+++ trunk/libdbm-deep-perl/debian/patches/perl-5.12.patch Fri May  7 17:24:57 2010
@@ -1,0 +1,21 @@
+From: Ansgar Burchardt <ansgar at 43-1.org>
+Date: Sat, 08 May 2010 01:44:05 +0900
+Bug-Debian: http://bugs.debian.org/580189
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=57283
+Subject: Fix build with perl 5.12
+
+This fixes the following warnings:
+
+  Use of uninitialized value $_ in lc at .../lib/DBM/Deep/Storage/DBI.pm line 60.
+
+--- libdbm-deep-perl.orig/lib/DBM/Deep/Storage/DBI.pm
++++ libdbm-deep-perl/lib/DBM/Deep/Storage/DBI.pm
+@@ -57,7 +57,7 @@
+     ) or die $DBI::error;
+ 
+     # Should we use the same method as done in new() if passed a $dbh?
+-    (undef, $self->{driver}) = map lc, DBI->parse_dsn( $self->{dbi}{dsn} );
++    (undef, $self->{driver}) = map defined($_) ? lc($_) : undef, DBI->parse_dsn( $self->{dbi}{dsn} );
+ 
+     return 1;
+ }

Modified: trunk/libdbm-deep-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbm-deep-perl/debian/patches/series?rev=57637&op=diff
==============================================================================
--- trunk/libdbm-deep-perl/debian/patches/series (original)
+++ trunk/libdbm-deep-perl/debian/patches/series Fri May  7 17:24:57 2010
@@ -1,1 +1,2 @@
 manpage-has-bad-whatis-entry.patch
+perl-5.12.patch