dev-perl/Net-IP/files/initip-0.patch


1
2
3
4
5
6
7
8
9
10
11
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;