Description: fix "defined(@array)" errors
Origin: vendor
Bug-Debian: https://bugs.debian.org/789611
Forwarded: no; no idea where to ...
Author: gregor herrmann <gregoa@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");
 			}