Package: maildirsync Version: 1.1-2 Severity: normal Tags: patch Since a recent perl update I have been getting the following warnings.
UNIVERSAL->import is deprecated and will be removed in a future perl at /usr/bin/maildirsync line 13 The documentation at the bottom here describes the deprecation and why. http://perldoc.perl.org/UNIVERSAL.html I didn't really test this out fully but the following patch seemed like the path of least resistance for keeping this warning free and keeping with the current idiomatic perl for this behavior. But I could easily be wrong since this is outside my normal area. But it worked for me and worked for my typical use of it. Thank you for maintaining maildirsync! Bob --- /usr/bin/maildirsync 2007-07-20 08:55:47.000000000 -0600 +++ /usr/local/bin/maildirsync 2011-05-08 20:54:09.000000000 -0600 @@ -10,7 +10,6 @@ use IO::Handle; use IPC::Open2; use Fcntl qw(SEEK_SET); -use UNIVERSAL qw(isa); use strict; require 5.006; @@ -93,7 +92,7 @@ exit_with_error("Invalid parameter value: $optname: $value") if $value !~ /^$regex$/; } verbose 4 => "add option $optname = ".($value || ""); - if (!isa($OPT{$optname}, 'ARRAY')) { + if (! eval { $OPT{$optname}->isa('ARRAY') }) { $OPT{$optname} = $value; } else { push @{$OPT{$optname}}, $value; -- To UNSUBSCRIBE, email to [email protected] with a subject of "unsubscribe". Trouble? Contact [email protected]
