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
|
Description: "use UNIVERSAL" is a fatal error since perl 5.22
cf. http://perldoc.perl.org/perldelta.html#use-UNIVERSAL-%27...%27-is-now-a-fatal-error
Origin: upstream repo, https://code.google.com/p/maildirsync/source/diff?spec=svn58ee8130a127e84780822fcb17462b0aa932e6a7&old=0ec79f1f52bdf33059684dc75c1de71eb5fcbb81&r=58ee8130a127e84780822fcb17462b0aa932e6a7&format=unidiff&path=%2Fmaildirsync.pl
plus https://code.google.com/p/maildirsync/source/diff?spec=svn8060548654ea5f82ac45d1c15b0aeaebe97455a5&r=8060548654ea5f82ac45d1c15b0aeaebe97455a5&format=unidiff&path=/maildirsync.pl
Bug-Debian: https://bugs.debian.org/809198
https://bugs.debian.org/809818
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2016-01-04
Applied-Upstream: r58ee8130a127, r8060548654ea
--- a/maildirsync.pl
+++ b/maildirsync.pl
@@ -10,7 +10,7 @@
use IO::Handle;
use IPC::Open2;
use Fcntl qw(SEEK_SET);
-use UNIVERSAL qw(isa);
+use Scalar::Util 'reftype';
use strict;
use warnings;
require 5.006;
@@ -96,7 +96,7 @@
exit_with_error("Invalid parameter value: $optname: $value") if $value !~ /^$regex$/;
}
verbose 4 => "add option $optname = ".($value || "");
- if (!isa($OPT{$optname}, 'ARRAY')) {
+ if (reftype($OPT{$optname}) ne 'ARRAY') {
$OPT{$optname} = $value;
} else {
push @{$OPT{$optname}}, $value;
|
