From owner-svn-ports-head@FreeBSD.ORG  Wed Jan  9 13:30:47 2013
Return-Path: <owner-svn-ports-head@FreeBSD.ORG>
Delivered-To: svn-ports-head@freebsd.org
Received: from mx1.freebsd.org (mx1.FreeBSD.org [8.8.178.115])
 by hub.freebsd.org (Postfix) with ESMTP id 4ADD438C;
 Wed,  9 Jan 2013 13:30:47 +0000 (UTC)
 (envelope-from tobez@FreeBSD.org)
Received: from svn.freebsd.org (svn.freebsd.org
 [IPv6:2001:1900:2254:2068::e6a:0])
 by mx1.freebsd.org (Postfix) with ESMTP id 23453F13;
 Wed,  9 Jan 2013 13:30:47 +0000 (UTC)
Received: from svn.freebsd.org (svn.FreeBSD.org [8.8.178.70])
 by svn.freebsd.org (8.14.5/8.14.5) with ESMTP id r09DUkoL088740;
 Wed, 9 Jan 2013 13:30:47 GMT (envelope-from tobez@svn.freebsd.org)
Received: (from tobez@localhost)
 by svn.freebsd.org (8.14.5/8.14.5/Submit) id r09DUkOR088738;
 Wed, 9 Jan 2013 13:30:46 GMT (envelope-from tobez@svn.freebsd.org)
Message-Id: <201301091330.r09DUkOR088738@svn.freebsd.org>
From: Anton Berezin <tobez@FreeBSD.org>
Date: Wed, 9 Jan 2013 13:30:46 +0000 (UTC)
To: ports-committers@freebsd.org, svn-ports-all@freebsd.org,
 svn-ports-head@freebsd.org
Subject: svn commit: r310143 - in head/net/p5-Net-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-head@freebsd.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: SVN commit messages for the ports tree for head
 <svn-ports-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-ports-head>,
 <mailto:svn-ports-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-ports-head>
List-Post: <mailto:svn-ports-head@freebsd.org>
List-Help: <mailto:svn-ports-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-ports-head>,
 <mailto:svn-ports-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 09 Jan 2013 13:30:47 -0000

Author: tobez
Date: Wed Jan  9 13:30:46 2013
New Revision: 310143
URL: http://svnweb.freebsd.org/changeset/ports/310143

Log:
  Fix spurious warnings triggered under certain conditions
  (see https://rt.cpan.org/Public/Bug/Display.html?id=78828).
  
  PR:	174930
  Submitted by:	Takefu <takefu at airport.fm>

Added:
  head/net/p5-Net-Server/files/
  head/net/p5-Net-Server/files/patch-lib-Net-Server.pm   (contents, props changed)
Modified:
  head/net/p5-Net-Server/Makefile

Modified: head/net/p5-Net-Server/Makefile
==============================================================================
--- head/net/p5-Net-Server/Makefile	Wed Jan  9 13:17:27 2013	(r310142)
+++ head/net/p5-Net-Server/Makefile	Wed Jan  9 13:30:46 2013	(r310143)
@@ -1,12 +1,9 @@
-# New ports collection makefile for:	p5-Net-Server
-# Date created:				24 Apr 2001
-# Whom:					Jesse McConnell <jesse@gallup.com>
-#
+# Created by: Jesse McConnell <jesse@gallup.com>
 # $FreeBSD$
-#
 
 PORTNAME=	Net-Server
 PORTVERSION=	2.006
+PORTREVISION=	1
 CATEGORIES=	net perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
@@ -46,6 +43,9 @@ MAN3=		Net::Server.3 \
 
 .include <bsd.port.options.mk>
 
+post-patch:
+	${RM} ${WRKSRC}/lib/Net/Server.pm.orig
+
 .if ${PORT_OPTIONS:MIPV6}
 BUILD_DEPENDS+=	p5-Socket6>=0.23:${PORTSDIR}/net/p5-Socket6
 RUN_DEPENDS+=	p5-Socket6>=0.23:${PORTSDIR}/net/p5-Socket6

Added: head/net/p5-Net-Server/files/patch-lib-Net-Server.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/net/p5-Net-Server/files/patch-lib-Net-Server.pm	Wed Jan  9 13:30:46 2013	(r310143)
@@ -0,0 +1,26 @@
+--- lib/Net/Server.pm.orig	2012-06-21 07:44:58.000000000 +0900
++++ lib/Net/Server.pm	2013-01-03 16:13:30.000000000 +0900
+@@ -587,7 +587,10 @@
+ 
+     # if the addr or host matches a deny, reject it immediately
+     foreach (@{ $prop->{'deny'} }) {
+-        return 0 if $prop->{'peerhost'} =~ /^$_$/ && defined $prop->{'reverse_lookups'};
++        return 0
++            if defined($prop->{'reverse_lookups'})
++            && defined($prop->{peerhost})
++            && $prop->{'peerhost'} =~ /^$_$/;
+         return 0 if $peeraddr =~ /^$_$/;
+     }
+     if (@{ $prop->{'cidr_deny'} }) {
+@@ -597,7 +600,10 @@
+ 
+     # if the addr or host isn't blocked yet, allow it if it is allowed
+     foreach (@{ $prop->{'allow'} }) {
+-        return 1 if $prop->{'peerhost'} =~ /^$_$/ && defined $prop->{'reverse_lookups'};
++        return 1
++            if defined($prop->{'reverse_lookups'})
++            && defined($prop->{peerhost})
++            && $prop->{'peerhost'} =~ /^$_$/;
+         return 1 if $peeraddr =~ /^$_$/;
+     }
+     if (@{ $prop->{'cidr_allow'} }) {