From owner-svn-ports-all@FreeBSD.ORG Fri Aug 29 17:48:08 2014 Return-Path: Delivered-To: svn-ports-all@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [8.8.178.115]) (using TLSv1 with cipher ADH-AES256-SHA (256/256 bits)) (No client certificate requested) by hub.freebsd.org (Postfix) with ESMTPS id E8EE03B4; Fri, 29 Aug 2014 17:48:08 +0000 (UTC) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:1900:2254:2068::e6a:0]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (Client did not present a certificate) by mx1.freebsd.org (Postfix) with ESMTPS id BA3CD1D9C; Fri, 29 Aug 2014 17:48:08 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.9/8.14.9) with ESMTP id s7THm8kI080265; Fri, 29 Aug 2014 17:48:08 GMT (envelope-from zi@FreeBSD.org) Received: (from zi@localhost) by svn.freebsd.org (8.14.9/8.14.9/Submit) id s7THm8nf080262; Fri, 29 Aug 2014 17:48:08 GMT (envelope-from zi@FreeBSD.org) Message-Id: <201408291748.s7THm8nf080262@svn.freebsd.org> X-Authentication-Warning: svn.freebsd.org: zi set sender to zi@FreeBSD.org using -f From: Ryan Steinmetz Date: Fri, 29 Aug 2014 17:48:08 +0000 (UTC) To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r366545 - in head/mail/p5-Net-SMTP-Server: . files X-SVN-Group: ports-head MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-ports-all@freebsd.org X-Mailman-Version: 2.1.18-1 Precedence: list List-Id: SVN commit messages for the ports tree List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 29 Aug 2014 17:48:09 -0000 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@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); +