Date: Thu, 03 Jan 2013 17:23:56 +0900 From: Takefu <takefu@airport.fm> To: freebsd-gnats-submit@freebsd.org Cc: perl@freebsd.org Subject: [PATCH] net/p5-Net-Server: Words that occur under specific conditions. Message-ID: <50E5401C.3080501@airport.fm>
next in thread | raw e-mail | index | archive | help
>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 <jesse@gallup.com> -# +# Created by: Jesse McConnell <jesse@gallup.com> # $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 ---
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?50E5401C.3080501>