[libnet-smtp-server-perl] 01/07: Add patch to fix "Can't use '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 libnet-smtp-server-perl.

commit dce5218173519165c7c1676f289944eff10b3b87
Author: gregor herrmann <gregoa at debian.org>
Date:   Mon Dec 28 03:04:48 2015 +0100

    Add patch to fix "Can't use 'defined(@array)'" errors.
    
    Closes: #579493
---
 debian/patches/defined_array.patch | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)

diff --git a/debian/patches/defined_array.patch b/debian/patches/defined_array.patch
new file mode 100644
index 0000000..e257574
--- /dev/null
+++ b/debian/patches/defined_array.patch
@@ -0,0 +1,31 @@
+Description: fix "Can't use 'defined(@array)'"
+Origin: vendor
+Bug-Debian: https://bugs.debian.org/579493
+Author: "brian m. carlson" <sandals at crustytoothpaste.net>
+Reviewed-by: gregor herrmann <gregoa at debian.org>
+Last-Update: 2015-12-28
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=110686
+Bug: https://rt.cpan.org/Ticket/Display.html?id=110686
+
+--- a/Server/Client.pm
++++ b/Server/Client.pm
+@@ -126,7 +126,7 @@
+ 	return 1;
+     }
+     
+-    if(!defined(@{$self->{TO}})) {
++    if(!@{$self->{TO}}) {
+ 	$self->_put("503 You want me to read your mind?  Tell me who to send it to!");
+ 	return 1;
+     }
+--- a/Server/Relay.pm
++++ b/Server/Relay.pm
+@@ -28,7 +28,7 @@
+ 	my $res = new Net::DNS::Resolver;
+ 	my @mx = mx($res, defined($1) ? $1 : hostdomain);
+ 	
+-	next unless defined(@mx);
++	next unless @mx;
+ 	
+ 	# Loop through the MXs.
+ 	foreach $rr (@mx) {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-smtp-server-perl.git