Subject: | Warning: "defined(@array) is deprecated" line 34 |
Using the module causes this warning:
defined(@array) is deprecated at
/Users/bwagner/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.0/File/Modified.pm
line 34.
(Maybe you should just omit the defined()?)
The attached patch resolves the issue.
Subject: | Modified.pm.patch |
--- Modified.pm.orig 2012-11-25 18:56:18.000000000 +0100
+++ Modified.pm 2012-11-25 18:56:30.000000000 +0100
@@ -31,7 +31,7 @@
if (! $@) {
no strict 'refs';
- if (defined @{"Digest::${digest}::ISA"}) {
+ if (@{"Digest::${digest}::ISA"}) {
@{"File::Modified::Signature::${digest}::ISA"} = qw(File::Modified::Signature::Digest);
return 1;
};