[libchart-perl] 03/03: Fix perl deprecation warning "defined(@array) is deprecated"

[Axel Beckert]

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

abe pushed a commit to branch master
in repository libchart-perl.

commit 35842d0b2adc30d01f29b88490b52b96984671c6
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Mon Sep 22 13:04:50 2014 +0200

    Fix perl deprecation warning "defined(@array) is deprecated"
---
 debian/changelog                                   |  4 ++++
 .../fix-defined- at array-is-deprecated-warning.patch | 25 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 3 files changed, 30 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index dba2b0a..6f49f24 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -10,6 +10,10 @@ libchart-perl (2.4.6-2) UNRELEASED; urgency=medium
   * Add patch to fix off-by one error which caused ugly graphs since 2.4.4
     (Closes: #709533)
 
+  [ Axel Beckert ]
+  * Add patch to fix perl deprecation warning "defined(@array) is
+    deprecated".
+
  -- gregor herrmann <gregoa at debian.org>  Thu, 27 Feb 2014 22:33:18 +0100
 
 libchart-perl (2.4.6-1) unstable; urgency=low
diff --git a/debian/patches/fix-defined- at array-is-deprecated-warning.patch b/debian/patches/fix-defined- at array-is-deprecated-warning.patch
new file mode 100644
index 0000000..39a1996
--- /dev/null
+++ b/debian/patches/fix-defined- at array-is-deprecated-warning.patch
@@ -0,0 +1,25 @@
+Description: Fixes perl deprecation warning "defined(@array) is deprecated"
+Author: Axel Beckert <abe at debian.org>
+
+Index: libchart-perl/Chart/Base.pm
+===================================================================
+--- libchart-perl.orig/Chart/Base.pm	2014-09-22 12:57:55.081667298 +0200
++++ libchart-perl/Chart/Base.pm	2014-09-22 12:59:14.080676145 +0200
+@@ -178,7 +178,7 @@
+     if ( ( ref $_[0] ) =~ /^ARRAY/ )
+     {
+         my $rdata = shift;
+-        @data = @$rdata if defined @$rdata;
++        @data = @$rdata if @$rdata;
+     }
+     elsif ( ( ref \$_[0] ) =~ /^SCALAR/ )
+     {
+@@ -230,7 +230,7 @@
+     if ( ( ref $_[0] ) =~ /^ARRAY/ )
+     {
+         my $rdata = shift;
+-        @data = @$rdata if defined @$rdata;
++        @data = @$rdata if @$rdata;
+     }
+     elsif ( ( ref \$_[0] ) =~ /^SCALAR/ )
+     {
diff --git a/debian/patches/series b/debian/patches/series
index 8f7513f..222b793 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 pod.patch
 debian-bug-709533.patch
+fix-defined- at array-is-deprecated-warning.patch

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