r25699 - in /trunk/libemail-abstract-perl/debian/patches: ./ empty-headers.patch series

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

Author: bremner-guest
Date: Sat Sep 27 01:25:37 2008
New Revision: 25699

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25699
Log:
add patch

Added:
    trunk/libemail-abstract-perl/debian/patches/
    trunk/libemail-abstract-perl/debian/patches/empty-headers.patch
    trunk/libemail-abstract-perl/debian/patches/series

Added: trunk/libemail-abstract-perl/debian/patches/empty-headers.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-abstract-perl/debian/patches/empty-headers.patch?rev=25699&op=file
==============================================================================
--- trunk/libemail-abstract-perl/debian/patches/empty-headers.patch (added)
+++ trunk/libemail-abstract-perl/debian/patches/empty-headers.patch Sat Sep 27 01:25:37 2008
@@ -1,0 +1,18 @@
+Fix for CPAN RT # 32198, Debian Bug #499973.
+Return early if there are no headers to retrieve.
+David Bremner <bremner at unb.ca>
+--- libemail-abstract-perl.orig/lib/Email/Abstract/MailInternet.pm
++++ libemail-abstract-perl/lib/Email/Abstract/MailInternet.pm
+@@ -25,6 +25,12 @@
+     my ($class, $obj, $header) = @_; 
+     my @values = $obj->head->get($header); 
+ 
++    # early exit to avoid warnings about undefined values
++    # based on a patch by adriano ferreira, except we return
++    # an empty list in a list context.
++    if (!scalar(@values)){
++	return wantarray  ? () : undef;
++    }
+     # No reason to s/// lots of values if we're just going to return one.
+     $#values = 0 if not wantarray;
+ 

Added: trunk/libemail-abstract-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-abstract-perl/debian/patches/series?rev=25699&op=file
==============================================================================
--- trunk/libemail-abstract-perl/debian/patches/series (added)
+++ trunk/libemail-abstract-perl/debian/patches/series Sat Sep 27 01:25:37 2008
@@ -1,0 +1,1 @@
+empty-headers.patch