From owner-freebsd-perl@FreeBSD.ORG Thu Jan 3 08:23:56 2013 Return-Path: Delivered-To: perl@freebsd.org Received: from mx1.freebsd.org (mx1.FreeBSD.org [8.8.178.115]) by hub.freebsd.org (Postfix) with ESMTP id CD34AF31; Thu, 3 Jan 2013 08:23:56 +0000 (UTC) (envelope-from takefu@airport.fm) Received: from ae-osaka.co.jp (unknown [IPv6:2001:3e0:4ec:a000::1]) by mx1.freebsd.org (Postfix) with ESMTP id 95F7A3F4; Thu, 3 Jan 2013 08:23:56 +0000 (UTC) Received: from ae-osaka.co.jp (localhost.ae-osaka.co.jp [127.0.0.1]) by ae-osaka.co.jp (Postfix) with ESMTP id 03EFCD3AC04; Thu, 3 Jan 2013 17:23:55 +0900 (JST) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=airport.fm; h= message-id:date:from:mime-version:to:cc:subject:content-type :content-transfer-encoding; s=mail; bh=S8eZ7JTDitSl54x60RohMhenH R0=; b=FJ+5uRnQu7OUvTVXQh3xM2ptHUxTH3ABu3O/dH6KyacIRDMzRoper2kM6 FdVnSDUOtG4v+zuza3lLQ+k8U/iZPas7UaneYwMjt9Oeg586bLPcNaOs3Fb/mlzD ICsqGO1qCgPuYCpLvK0QiFnpwmyn5IQMFl5Mubi5NZJIkay05s= DomainKey-Signature: a=rsa-sha1; c=nofws; d=airport.fm; h=message-id :date:from:mime-version:to:cc:subject:content-type :content-transfer-encoding; q=dns; s=mail; b=joL5KRuUeFJGEJo7zj6 H6sk9NzoPGAiq8LIUj6/KVhn2C8YsJbThz+gLKEqJgDqp+A/hyM1bfZl+bwioNuZ hh4kQAZdNZntOp1yjFaAPtp7zwk3TdZfLsoaztJgG7IR4ySyNArqrCk2fCS8ALSE n7KKBm3fFp40uOt9gXiBdACg= Received: from [IPv6:2001:3e0:4ec:a011:61e0:de32:2c12:9f30] (unknown [IPv6:2001:3e0:4ec:a011:61e0:de32:2c12:9f30]) by ae-osaka.co.jp (Postfix) with ESMTPSA id 98E85D3AC01; Thu, 3 Jan 2013 17:23:54 +0900 (JST) Message-ID: <50E5401C.3080501@airport.fm> Date: Thu, 03 Jan 2013 17:23:56 +0900 From: Takefu User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:17.0) Gecko/17.0 Thunderbird/17.0 MIME-Version: 1.0 To: freebsd-gnats-submit@freebsd.org Subject: [PATCH] net/p5-Net-Server: Words that occur under specific conditions. X-Enigmail-Version: 1.4.6 OpenPGP: id=9C3E8F56 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Cc: perl@freebsd.org X-BeenThere: freebsd-perl@freebsd.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: maintainer of a number of perl-related ports List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 03 Jan 2013 08:23:56 -0000 >Submitter-Id: current-users >Originator: Takefu >Organization: FOX Amateur Radio Club >Confidential: no >Synopsis: [PATCH] net/p5-Net-Server: Words that occur under specific conditions. >Severity: non-critical >Priority: low >Category: ports >Class: change-request >Release: FreeBSD 7.4-RELEASE-p11 i386 >Environment: System: FreeBSD RELENG74.localIPv4.airport.fm 7.4-RELEASE-p11 FreeBSD 7.4-RELEASE-p11 #0: Tue Dec 4 15:31:56 JST >Description: It is displayed by the specified condition as "Use of uninitialized value in pattern match (m//) at /usr/local/lib/perl5/site_perl/5.16.2/Net/Server.pm line 600." See https://rt.cpan.org/Public/Bug/Display.html?id=78828 Added file(s): - files/patch-lib-Net-Server.pm Port maintainer (perl@FreeBSD.org) is cc'd. Generated with FreeBSD Port Tools 0.99_6 (mode: change, diff: ports) >How-To-Repeat: >Fix: --- p5-Net-Server-2.006.patch begins here --- diff -ruN --exclude=CVS /usr/ports/net/p5-Net-Server/Makefile ./Makefile --- /usr/ports/net/p5-Net-Server/Makefile 2012-11-17 15:00:12.000000000 +0900 +++ ./Makefile 2013-01-03 17:01:12.000000000 +0900 @@ -1,9 +1,5 @@ -# New ports collection makefile for: p5-Net-Server -# Date created: 24 Apr 2001 -# Whom: Jesse McConnell -# +# Created by: Jesse McConnell # $FreeBSD: ports/net/p5-Net-Server/Makefile,v 1.37 2012/11/17 06:00:12 svnexp Exp $ -# PORTNAME= Net-Server PORTVERSION= 2.006 diff -ruN --exclude=CVS /usr/ports/net/p5-Net-Server/files/patch-lib-Net-Server.pm ./files/patch-lib-Net-Server.pm --- /usr/ports/net/p5-Net-Server/files/patch-lib-Net-Server.pm 1970-01-01 09:00:00.000000000 +0900 +++ ./files/patch-lib-Net-Server.pm 2013-01-03 16:14:25.000000000 +0900 @@ -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'} }) { --- p5-Net-Server-2.006.patch ends here ---