1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-25 04:43:33 +00:00

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

- Bump PORTREVISION
This commit is contained in:
Ryan Steinmetz 2014-08-29 17:48:07 +00:00
parent 82463a7e91
commit 1b7f41fa74
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=366545
3 changed files with 26 additions and 0 deletions

View File

@ -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@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}

View File

@ -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;
}

View File

@ -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);