[libuser-simple-perl] 04/06: Add patch to fix UNIVERSAL->import warning (5.20) / error (5.22).

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libuser-simple-perl.

commit 80d1072dd3e7366d9766aeeeae585874f0469db6
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri May 29 19:00:10 2015 +0200

    Add patch to fix UNIVERSAL->import warning (5.20) / error (5.22).
    
    Closes: #614873
---
 debian/patches/UNIVERSAL-import-deprecated.patch | 52 ++++++++++++++++++++++++
 debian/patches/series                            |  1 +
 2 files changed, 53 insertions(+)

diff --git a/debian/patches/UNIVERSAL-import-deprecated.patch b/debian/patches/UNIVERSAL-import-deprecated.patch
new file mode 100644
index 0000000..c802ea7
--- /dev/null
+++ b/debian/patches/UNIVERSAL-import-deprecated.patch
@@ -0,0 +1,52 @@
+Description: fix for
+ "UNIVERSAL->import is deprecated and will be removed in a future perl at ..." (5.20)
+ "Error:  UNIVERSAL does not export anything" (5.22)
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=103957
+Bug-Debian: https://bugs.debian.org/614873
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=103957
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-05-29
+
+diff --git a/lib/User/Simple.pm b/lib/User/Simple.pm
+index 108e93b..16e471b 100644
+--- a/lib/User/Simple.pm
++++ b/lib/User/Simple.pm
+@@ -170,7 +170,6 @@ terms as Perl.
+ use Carp;
+ use Date::Calc qw(Today_and_Now Add_Delta_DHMS Delta_DHMS);
+ use Digest::MD5 qw(md5_hex);
+-use UNIVERSAL qw(isa);
+ 
+ our $AUTOLOAD;
+ our $VERSION = '1.45';
+@@ -200,7 +199,7 @@ sub new {
+     $init{debug} = 2 unless defined $init{debug};
+     $init{adm_level} = 1 unless defined $init{adm_level};
+ 
+-    unless (defined($init{db}) and isa($init{db}, 'DBI::db')) {
++    unless (defined($init{db}) and $init{db}->isa('DBI::db')) {
+ 	carp "Mandatory db argument must be a valid (DBI) database handle";
+ 	return undef;
+     }
+diff --git a/lib/User/Simple/Admin.pm b/lib/User/Simple/Admin.pm
+index 1b25545..14303e3 100644
+--- a/lib/User/Simple/Admin.pm
++++ b/lib/User/Simple/Admin.pm
+@@ -209,7 +209,6 @@ terms as Perl.
+ 
+ use Carp;
+ use Digest::MD5 qw(md5_hex);
+-use UNIVERSAL qw(isa);
+ our $AUTOLOAD;
+ 
+ ######################################################################
+@@ -222,7 +221,7 @@ sub new {
+     $table = shift;
+ 
+     # Verify we got the right arguments
+-    unless (isa($db, 'DBI::db')) {
++    unless ($db->isa('DBI::db')) {
+ 	carp "First argument must be a DBI connection";
+ 	return undef;
+     }
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..61b1c59
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+UNIVERSAL-import-deprecated.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libuser-simple-perl.git