[libwww-cnic-perl] 01/07: Add patch to fix "defined(@array)" errors.

[gregor herrmann]

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 <gregoa at 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 <gregoa at 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