[librtf-document-perl] 01/01: Add patch to fix "defined(@array) is deprecated" warning

[Axel Beckert]

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

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

commit 97862840692de795bb48c8f58e42076391ed7807
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Tue Jul 21 22:54:18 2015 +0200

    Add patch to fix "defined(@array) is deprecated" warning
---
 debian/changelog                          |  1 +
 debian/patches/02_fix-defined-array.patch | 16 ++++++++++++++++
 debian/patches/series                     |  1 +
 3 files changed, 18 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index b6a3b8d..d4e27d3 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -22,6 +22,7 @@ librtf-document-perl (0.64-11) UNRELEASED; urgency=medium
   * Mark package as autopkgtestable.
   * Add a Homepage header and let it point the author's BackPAN directory.
   * Slightly optimize short and long package description.
+  * Add patch to fix "defined(@array) is deprecated" warning.
 
  -- Axel Beckert <abe at debian.org>  Tue, 21 Jul 2015 21:03:51 +0200
 
diff --git a/debian/patches/02_fix-defined-array.patch b/debian/patches/02_fix-defined-array.patch
new file mode 100644
index 0000000..7b4f5d2
--- /dev/null
+++ b/debian/patches/02_fix-defined-array.patch
@@ -0,0 +1,16 @@
+Description: Fixes "defined(@array) is deprecated" Perl warning
+Author: Axel Beckert <abe at debian.org>
+
+Index: librtf-document-perl/Document.pm
+===================================================================
+--- librtf-document-perl.orig/Document.pm	2015-07-21 22:49:05.937818261 +0200
++++ librtf-document-perl/Document.pm	2015-07-21 22:51:37.656018946 +0200
+@@ -582,7 +582,7 @@
+     $self->add_raw ($fattr, escape_simple($name) );
+ 
+     my @alternates = ();
+-       @alternates = @{${$attributes}{alternates}} if ( defined @{${$attributes}{alternates}} );
++       @alternates = @{${$attributes}{alternates}} if @{${$attributes}{alternates}};
+     if (@alternates) {
+         while ($_ = shift @alternates) {
+             $self->add_raw ($fattr, [ '\*\falt '.escape_simple($_) ] );
diff --git a/debian/patches/series b/debian/patches/series
index f556d2c..9ab2267 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 01_make_it_strict.patch
+02_fix-defined-array.patch

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