bug 169288 bug 153171, rt# 20265 - Net-IP patched to handle 0.0.0.0 addresses

(Portage version: 2.1.2.2)

4 files changed, 44 insertions, 1 deletions

diff --git a/dev-perl/Net-IP/ChangeLog b/dev-perl/Net-IP/ChangeLog
index 1d35bb8c98d0..2a13f695fbd9 100644
--- a/dev-perl/Net-IP/ChangeLog
+++ b/dev-perl/Net-IP/ChangeLog
@@ -1,6 +1,12 @@
 # ChangeLog for dev-perl/Net-IP
 # Copyright 1999-2007 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/Net-IP/ChangeLog,v 1.24 2007/03/05 12:16:50 ticho Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Net-IP/ChangeLog,v 1.25 2007/03/30 20:55:52 mcummings Exp $
+
+*Net-IP-1.25-r1 (30 Mar 2007)
+
+  30 Mar 2007; Michael Cummings <mcummings@gentoo.org>
+  +files/initip-0.patch, +Net-IP-1.25-r1.ebuild:
+  bug 169288 bug 153171, rt# 20265 - Net-IP patched to handle 0.0.0.0 addresses
 
   05 Mar 2007; Andrej Kacian <ticho@gentoo.org> Net-IP-1.25.ebuild:
   Stable on x86, bug #169152.
diff --git a/dev-perl/Net-IP/Net-IP-1.25-r1.ebuild b/dev-perl/Net-IP/Net-IP-1.25-r1.ebuild
new file mode 100644
index 000000000000..8b05f8005bd8
--- /dev/null
+++ b/dev-perl/Net-IP/Net-IP-1.25-r1.ebuild
@@ -0,0 +1,22 @@
+# Copyright 1999-2007 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Net-IP/Net-IP-1.25-r1.ebuild,v 1.1 2007/03/30 20:55:52 mcummings Exp $
+
+inherit perl-module
+
+DESCRIPTION="Perl extension for manipulating IPv4/IPv6 addresses"
+HOMEPAGE="http://search.cpan.org/search?module=Net::IP"
+SRC_URI="mirror://cpan/authors/id/M/MA/MANU/${P}.tar.gz"
+
+LICENSE="Artistic"
+SLOT="0"
+KEYWORDS="alpha amd64 arm hppa ia64 m68k mips ppc ~ppc64 s390 sh sparc x86"
+IUSE=""
+
+PATCHES="${FILESDIR}/initip-0.patch"
+SRC_TEST="do"
+
+mydoc="TODO"
+
+
+DEPEND="dev-lang/perl"
diff --git a/dev-perl/Net-IP/files/digest-Net-IP-1.25-r1 b/dev-perl/Net-IP/files/digest-Net-IP-1.25-r1
new file mode 100644
index 000000000000..07014cf413d2
--- /dev/null
+++ b/dev-perl/Net-IP/files/digest-Net-IP-1.25-r1
@@ -0,0 +1,3 @@
+MD5 a49c0b02a9b793ff60191cdafc0c202e Net-IP-1.25.tar.gz 25749
+RMD160 92116a215d255d1a16b819df23c98bb0324df2f6 Net-IP-1.25.tar.gz 25749
+SHA256 4cd6e2202fd88c46d5458d19bbea80e257b6ba0ec57ea3ac8ae94ed48c9a60c7 Net-IP-1.25.tar.gz 25749
diff --git a/dev-perl/Net-IP/files/initip-0.patch b/dev-perl/Net-IP/files/initip-0.patch
new file mode 100644
index 000000000000..7f72638d0a9e
--- /dev/null
+++ b/dev-perl/Net-IP/files/initip-0.patch
@@ -0,0 +1,12 @@
+diff -Naurp Net-IP-1.25.old/IP.pm Net-IP-1.25/IP.pm
+--- Net-IP-1.25.old/IP.pm	2006-05-22 12:46:40.000000000 -0400
++++ Net-IP-1.25/IP.pm	2007-03-30 16:50:48.000000000 -0400
+@@ -410,7 +410,7 @@ sub intip {
+ 
+     my $int = ip_bintoint($self->binip());
+ 
+-    if (!$int) {
++    if (ref($int) ne "Math::BigInt") {
+         $self->{error} = $ERROR;
+         $self->{errno} = $ERRNO;
+         return;