[SCM] Debian packaging of libnet-server-perl branch, master, updated. debian/0.99-4-14-g46d10dd

intrigeri intrigeri at boum.org
Wed Jun 6 13:20:36 UTC 2012


The following commit has been merged in the master branch:
commit 2f6953601a3e3caabefd10c595c24b4bb1414efa
Author: intrigeri <intrigeri at boum.org>
Date:   Tue Jun 5 21:09:39 2012 +0200

    Drop 06_cidr-workaround.patch (upstream applied some flavour of it).

diff --git a/debian/patches/06_cidr-workaround.patch b/debian/patches/06_cidr-workaround.patch
deleted file mode 100644
index 5680c2b..0000000
--- a/debian/patches/06_cidr-workaround.patch
+++ /dev/null
@@ -1,39 +0,0 @@
-Author: 
-Description: this patch was created by Carsten Wolff <carsten at wolffcarsten.de>
-It should be removed after the problem is fixed in libnet-cidr-perl
---- a/lib/Net/Server.pm
-+++ b/lib/Net/Server.pm
-@@ -824,25 +824,29 @@
-     && $#{ $prop->{cidr_allow} } == -1
-     && $#{ $prop->{cidr_deny} }  == -1;
- 
-+  ### work around Net::CIDR::cidrlookup() croaking,
-+  ### if first parameter is an IPv4 address in IPv6 notation.
-+  my $peeraddr = ($prop->{peeraddr} =~ /^\s*::ffff:([0-9.]+\s*)$/) ? $1 : $prop->{peeraddr};
-+
-   ### 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->{peeraddr} =~ /^$_$/;
-+    return 0 if $peeraddr =~ /^$_$/;
-   }
-   if ($#{ $prop->{cidr_deny} } != -1) {
-     require Net::CIDR;
--    return 0 if Net::CIDR::cidrlookup($prop->{peeraddr}, @{ $prop->{cidr_deny} });
-+    return 0 if Net::CIDR::cidrlookup($peeraddr, @{ $prop->{cidr_deny} });
-   }
- 
- 
-   ### 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->{peeraddr} =~ /^$_$/;
-+    return 1 if $peeraddr =~ /^$_$/;
-   }
-   if ($#{ $prop->{cidr_allow} } != -1) {
-     require Net::CIDR;
--    return 1 if Net::CIDR::cidrlookup($prop->{peeraddr}, @{ $prop->{cidr_allow} });
-+    return 1 if Net::CIDR::cidrlookup($peeraddr, @{ $prop->{cidr_allow} });
-   }
- 
-   return 0;
diff --git a/debian/patches/series b/debian/patches/series
index f6f7012..9b13be4 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,2 @@
-06_cidr-workaround.patch
 07_spelling.patch
 08_propagate-dynamic-port-data-across-a-hup.patch

-- 
Debian packaging of libnet-server-perl



More information about the Pkg-perl-cvs-commits mailing list