[libgenome-model-tools-music-perl] 01/03: Add patch to fix "Can't use 'defined(@array)' error.

[gregor herrmann]

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

gregoa pushed a commit to branch master
in repository libgenome-model-tools-music-perl.

commit 76a5acff1fe52b8686a1666d462d8bb93cec1d9c
Author: gregor herrmann <gregoa at debian.org>
Date:   Fri Jan 1 18:22:16 2016 +0100

    Add patch to fix "Can't use 'defined(@array)' error.
    
    Closes: #809583
---
 debian/patches/defined-array.patch | 28 ++++++++++++++++++++++++++++
 debian/patches/series              |  1 +
 2 files changed, 29 insertions(+)

diff --git a/debian/patches/defined-array.patch b/debian/patches/defined-array.patch
new file mode 100644
index 0000000..e573104
--- /dev/null
+++ b/debian/patches/defined-array.patch
@@ -0,0 +1,28 @@
+Description: fix "Can't use 'defined(@array)' (Maybe you should just omit the defined()?)"
+Origin: vendor
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=108560
+Forwarded: no, reported and trivial to fix
+Bug-Debian: https://bugs.debian.org/809583
+Author: gregor herrmann <gregoa at debian.org>
+Last-Update: 2016-01-01
+
+--- a/lib/Genome/Model/Tools/Music/Survival.pm
++++ b/lib/Genome/Model/Tools/Music/Survival.pm
+@@ -333,7 +333,7 @@
+         }
+ 
+         #check to see if this gene is on the list (if there is a list at all)
+-        if( defined @{$mutated_genes_to_include} ) {
++        if( @{$mutated_genes_to_include} ) {
+             next unless( scalar grep { m/^$gene$/ } @{$mutated_genes_to_include} );
+         }
+ 
+@@ -396,7 +396,7 @@
+         }
+ 
+         #check to see if this gene is on the list (if there is a list at all)
+-        if( defined @{$mutated_genes_to_include} ) {
++        if( @{$mutated_genes_to_include} ) {
+             next unless (scalar grep { m/^$gene$/ } @{$mutated_genes_to_include});
+         }
+ 
diff --git a/debian/patches/series b/debian/patches/series
index 5148245..797d91d 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 01-fixpod2man
+defined-array.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libgenome-model-tools-music-perl.git