svn commit: r366545 - in head/mail/p5-Net-SMTP-Server: . files

[Ryan Steinmetz]

Author: zi
Date: Fri Aug 29 17:48:07 2014
New Revision: 366545
URL: http://svnweb.freebsd.org/changeset/ports/366545
QAT: https://qat.redports.org/buildarchive/r366545/

Log:
  - Fix run time errors (upstream bugs: 80682, 37731)
  - Bump PORTREVISION

Added:
  head/mail/p5-Net-SMTP-Server/files/
  head/mail/p5-Net-SMTP-Server/files/patch-Server__Client.pm   (contents, props changed)
  head/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm   (contents, props changed)
Modified:
  head/mail/p5-Net-SMTP-Server/Makefile

Modified: head/mail/p5-Net-SMTP-Server/Makefile
==============================================================================
--- head/mail/p5-Net-SMTP-Server/Makefile	Fri Aug 29 17:32:44 2014	(r366544)
+++ head/mail/p5-Net-SMTP-Server/Makefile	Fri Aug 29 17:48:07 2014	(r366545)
@@ -3,6 +3,7 @@
 
 PORTNAME=	Net-SMTP-Server
 PORTVERSION=	1.1
+PORTREVISION=	1
 CATEGORIES=	mail perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
@@ -11,6 +12,9 @@ DISTNAME=	SMTP-Server-${PORTVERSION}
 MAINTAINER=	perl at FreeBSD.org
 COMMENT=	Native Perl SMTP Server
 
+LICENSE=	GPLv2
+LICENSE_FILE=	${WRKSRC}/LICENSE
+
 BUILD_DEPENDS=	p5-Net-DNS>=0:${PORTSDIR}/dns/p5-Net-DNS
 RUN_DEPENDS:=	${BUILD_DEPENDS}
 

Added: head/mail/p5-Net-SMTP-Server/files/patch-Server__Client.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/mail/p5-Net-SMTP-Server/files/patch-Server__Client.pm	Fri Aug 29 17:48:07 2014	(r366545)
@@ -0,0 +1,11 @@
+--- ./Server/Client.pm.orig	2014-08-29 12:27:51.000000000 -0400
++++ ./Server/Client.pm	2014-08-29 12:28:35.000000000 -0400
+@@ -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;
+     }

Added: head/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm	Fri Aug 29 17:48:07 2014	(r366545)
@@ -0,0 +1,11 @@
+--- ./Server/Relay.pm.orig	2014-08-29 12:29:32.000000000 -0400
++++ ./Server/Relay.pm	2014-08-29 12:30:08.000000000 -0400
+@@ -24,7 +24,7 @@
+     # Loop through the recipient list.
+     foreach $target (@{$self->{TO}}) {
+ 	my $rr;
+-	my $domain = /@(.*)/;
++	my $domain = ($target =~ /@(.*)/) ? $1 : hostdomain;
+ 	my $res = new Net::DNS::Resolver;
+ 	my @mx = mx($res, defined($1) ? $1 : hostdomain);
+