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 <a...@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 <a...@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 <a...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to