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

gregoa pushed a commit to branch master
in repository libwww-cnic-perl.

commit 7236d0f51b26f65e4f8ab50cf093fc65c304e2b4
Author: gregor herrmann <gre...@debian.org>
Date:   Mon Jun 22 19:51:08 2015 +0200

    Add patch to fix "defined(@array)" errors.
    
    Closes: #789611
---
 debian/patches/defined-array.patch | 33 +++++++++++++++++++++++++++++++++
 debian/patches/series              |  1 +
 2 files changed, 34 insertions(+)

diff --git a/debian/patches/defined-array.patch 
b/debian/patches/defined-array.patch
new file mode 100644
index 0000000..95254c7
--- /dev/null
+++ b/debian/patches/defined-array.patch
@@ -0,0 +1,33 @@
+Description: fix "defined(@array)" errors
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/789611
+Forwarded: no; no idea where to ...
+Author: gregor herrmann <gre...@debian.org>
+Last-Update: 2015-06-22
+
+--- a/lib/WWW/CNic.pm
++++ b/lib/WWW/CNic.pm
+@@ -252,7 +252,7 @@
+       $self->{_base} =~ s/^https:/http:/g;    # No SSL required
+       die("Missing domain name") if $self->{_domain} eq '';
+       my $url = "$self->{_base}/search?domain=$self->{_domain}";
+-      if (defined(@{$self->{_params}->{suffixlist}})) {
++      if (@{$self->{_params}->{suffixlist}}) {
+               $url .= '&suffixlist='.join(',', 
@{$self->{_params}->{suffixlist}}).'&test='.$self->{_test};
+       }
+       $self->{_response}->{_raw} = $self->_get(GET($url));
+@@ -429,12 +429,12 @@
+               if ($self->{_params}->{dns}->{drop} eq 'all') {
+                       push(@dns, "drop:all");
+ 
+-              } elsif (defined(@{$self->{_params}->{dns}->{drop}})) {
++              } elsif (@{$self->{_params}->{dns}->{drop}}) {
+                       foreach my $name(@{$self->{_params}->{dns}->{drop}}) {
+                               push(@dns, "drop:$name");
+                       }
+               }
+-              if (defined(@{$self->{_params}->{dns}->{add}})) {
++              if (@{$self->{_params}->{dns}->{add}}) {
+                       foreach my $name(@{$self->{_params}->{dns}->{add}}) {
+                               push(@dns, "add:$name");
+                       }
diff --git a/debian/patches/series b/debian/patches/series
index 6943ac3..33eac06 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,2 +1,3 @@
 fix-pod2man-errors.patch
 spelling.patch
+defined-array.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libwww-cnic-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