[libnet-server-perl] 01/02: Add fix-use-of-uninitialized-value-in-pattern-match.patch

[Salvatore Bonaccorso]

This is an automated email from the git hooks/post-receive script.

carnil pushed a commit to branch wheezy
in repository libnet-server-perl.

commit f69136bea8d6f9eb946780f7731fff4646553d28
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Thu Nov 28 09:37:16 2013 +0100

    Add fix-use-of-uninitialized-value-in-pattern-match.patch
    
    Fixes use of uninitialized value in pattern match.
    
    This in particular affects munin-nodes under wheezy. Logs are spammed
    with entries: "Use of uninitialized value in pattern match (m//) at
    /usr/share/perl5/Net/Server.pm line 600.".
    
    Closes: #693320
---
 ...e-of-uninitialized-value-in-pattern-match.patch | 31 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 32 insertions(+)

diff --git a/debian/patches/fix-use-of-uninitialized-value-in-pattern-match.patch b/debian/patches/fix-use-of-uninitialized-value-in-pattern-match.patch
new file mode 100644
index 0000000..f66c15a
--- /dev/null
+++ b/debian/patches/fix-use-of-uninitialized-value-in-pattern-match.patch
@@ -0,0 +1,31 @@
+Description: Fix of uninitialized value in pattern match
+Origin: upstream, https://metacpan.org/diff/release/RHANDOM/Net-Server-2.006/RHANDOM/Net-Server-2.007
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=78828
+Bug-Debian: http://bugs.debian.org/693320
+Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=78828
+Author: Salvatore Bonaccorso <carnil at debian.org>
+Last-Update: 2013-11-28
+Applied-Upstream: 2.007
+
+--- a/lib/Net/Server.pm
++++ b/lib/Net/Server.pm
+@@ -587,7 +587,8 @@
+ 
+     # 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 $prop->{'reverse_lookups'}
++            && defined($prop->{'peerhost'}) && $prop->{'peerhost'} =~ /^$_$/;
+         return 0 if $peeraddr =~ /^$_$/;
+     }
+     if (@{ $prop->{'cidr_deny'} }) {
+@@ -597,7 +598,8 @@
+ 
+     # 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 $prop->{'reverse_lookups'}
++            && defined($prop->{'peerhost'}) && $prop->{'peerhost'} =~ /^$_$/;
+         return 1 if $peeraddr =~ /^$_$/;
+     }
+     if (@{ $prop->{'cidr_allow'} }) {
diff --git a/debian/patches/series b/debian/patches/series
index e5cc95a..0bb1acb 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1 +1,2 @@
 0001-Fix-errors-in-POD.patch
+fix-use-of-uninitialized-value-in-pattern-match.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-server-perl.git