1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
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@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;
}
|
