sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-18 01:39:16 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
- 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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
mail/p5-Net-SMTP-Server/Makefile
View file

@ -3,6 +3,7 @@
PORTNAME= Net-SMTP-Server PORTNAME= Net-SMTP-Server
PORTVERSION= 1.1 PORTVERSION= 1.1
PORTREVISION= 1
CATEGORIES= mail perl5 CATEGORIES= mail perl5
MASTER_SITES= CPAN MASTER_SITES= CPAN
PKGNAMEPREFIX= p5- PKGNAMEPREFIX= p5-
@ -11,6 +12,9 @@ DISTNAME= SMTP-Server-${PORTVERSION}
MAINTAINER= perl@FreeBSD.org MAINTAINER= perl@FreeBSD.org
COMMENT= Native Perl SMTP Server COMMENT= Native Perl SMTP Server
LICENSE= GPLv2
LICENSE_FILE= ${WRKSRC}/LICENSE
BUILD_DEPENDS= p5-Net-DNS>=0:${PORTSDIR}/dns/p5-Net-DNS BUILD_DEPENDS= p5-Net-DNS>=0:${PORTSDIR}/dns/p5-Net-DNS
RUN_DEPENDS:= ${BUILD_DEPENDS} RUN_DEPENDS:= ${BUILD_DEPENDS}

11
mail/p5-Net-SMTP-Server/files/patch-Server__Client.pm Normal file
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;
}

11
mail/p5-Net-SMTP-Server/files/patch-Server__Relay.pm Normal file
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);