[PATCH] net/p5-Net-Server: Words that occur under specific conditions.
Takefu
takefu at airport.fm
Thu Jan 3 08:23:56 UTC 2013
>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 ---
More information about the freebsd-perl
mailing list