[libfile-modified-perl] 03/09: add patch fixing warnings when defined(@array) is used with perl 5.18

[Damyan Ivanov]

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

dmn pushed a commit to branch master
in repository libfile-modified-perl.

commit 15692c943494fe658a79aa4a8df61e806227f6c4
Author: Damyan Ivanov <dmn at debian.org>
Date:   Wed Jan 29 09:38:20 2014 +0000

    add patch fixing warnings when defined(@array) is used with perl 5.18
---
 debian/patches/no-defined-array.patch | 17 +++++++++++++++++
 debian/patches/series                 |  1 +
 2 files changed, 18 insertions(+)

diff --git a/debian/patches/no-defined-array.patch b/debian/patches/no-defined-array.patch
new file mode 100644
index 0000000..e8aa1fb
--- /dev/null
+++ b/debian/patches/no-defined-array.patch
@@ -0,0 +1,17 @@
+Description: Avoid using defined(@array)
+ defined(@array) emits a warning in perl 5.18 and is the same as checking the
+ @array for true
+Author: Damyan Ivanov <dmn at debian.org>
+Bug-Debian: http://bugs.debian.org/736999
+
+--- a/lib/File/Modified.pm
++++ b/lib/File/Modified.pm
+@@ -31,7 +31,7 @@ sub _make_digest_signature {
+ 
+   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;
+     };
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..fb0bcaa
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+no-defined-array.patch

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