[PATCH] net/p5-Net-Server: Words that occur under specific conditions.

[Takefu]

>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 at 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 at gallup.com>
-#
+# Created by: Jesse McConnell <jesse at 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 ---