[libemail-mime-createhtml-perl] 01/06: Add patch from CPAN RT to fix build failure under 5.18.

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libemail-mime-createhtml-perl.

commit 4c24e27d565d4f60772855dc949677843b475955
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Nov 24 17:09:30 2013 +0100

    Add patch from CPAN RT to fix build failure under 5.18.
    
    Closes: #711439
---
 ...ssed-not-UNIVERSAL-isa-to-test-objecthood.patch | 50 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 51 insertions(+)

diff --git a/debian/patches/0001-use-blessed-not-UNIVERSAL-isa-to-test-objecthood.patch b/debian/patches/0001-use-blessed-not-UNIVERSAL-isa-to-test-objecthood.patch
new file mode 100644
index 0000000..c5569d7
--- /dev/null
+++ b/debian/patches/0001-use-blessed-not-UNIVERSAL-isa-to-test-objecthood.patch
@@ -0,0 +1,50 @@
+Origin: https://rt.cpan.org/Public/Bug/Display.html?id=90063
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=90063,
+ https://rt.cpan.org/Public/Bug/Display.html?id=85953
+Bug-Debian: http://bugs.debian.org/711439
+Forwarded: not needed
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2013-11-24
+
+From 52a0848ce4c2fd3133fd2cdc662c3c2e72b13dc7 Mon Sep 17 00:00:00 2001
+From: Ricardo Signes <rjbs at cpan.org>
+Date: Tue, 5 Nov 2013 09:53:21 -0500
+Subject: [PATCH] use blessed, not UNIVERSAL::isa, to test objecthood
+
+Without this, we fail on more recent perls, where things are
+considered to be isa(UNIVERSAL) much more often (and reliably).
+---
+ lib/Email/MIME/CreateHTML/Resolver.pm | 5 +++--
+ 1 file changed, 3 insertions(+), 2 deletions(-)
+
+diff --git a/lib/Email/MIME/CreateHTML/Resolver.pm b/lib/Email/MIME/CreateHTML/Resolver.pm
+index e5dd2b1..94cb271 100644
+--- a/lib/Email/MIME/CreateHTML/Resolver.pm
++++ b/lib/Email/MIME/CreateHTML/Resolver.pm
+@@ -9,6 +9,7 @@ package Email::MIME::CreateHTML::Resolver;
+ 
+ use strict;
+ use Carp;
++use Scalar::Util ();
+ 
+ use vars qw($VERSION $HaveCache $HaveLWP $HaveFilesystem);
+ $VERSION = sprintf "%d.%03d", q$Revision: 1.5 $ =~ /: (\d+)\.(\d+)/;
+@@ -43,13 +44,13 @@ sub new {
+ 	#Do some sanity checking of inputs
+ 	my $resolver = $args->{resolver};
+ 	if(defined $resolver) {
+-		confess "resolver must be an object" unless ( UNIVERSAL::isa($resolver,'UNIVERSAL') );
++		confess "resolver must be an object" unless Scalar::Util::blessed($resolver);
+ 		confess "resolver does not seem to use the expected interface (get_resource)" unless ($resolver->can('get_resource'));
+ 	}
+ 
+ 	my $object_cache = $args->{'object_cache'};
+ 	if(defined $object_cache ) {
+-		confess "object_cache must be an object" unless ( UNIVERSAL::isa($object_cache,'UNIVERSAL') );
++		confess "object_cache must be an object" unless Scalar::Util::blessed($object_cache);
+ 		confess "object_cache does not seem to use the expected cache interface (get and set methods)" 
+ 			unless ($object_cache->can('get') && $object_cache->can('set'));
+ 		warn("Caching support is not available - object_cache will not be used") unless($HaveCache);
+-- 
+1.8.4.1
+
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..a914fdf
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+0001-use-blessed-not-UNIVERSAL-isa-to-test-objecthood.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libemail-mime-createhtml-perl.git