File perl-Net-IP-1.25-zero_address.diff of Package perl-Net-IP

--- a/IP.pm
+++ b/IP.pm
@@ -410,7 +410,7 @@
 
     my $int = ip_bintoint($self->binip());
 
-    if (!$int) {
+    if (ref($int) ne "Math::BigInt") {
         $self->{error} = $ERROR;
         $self->{errno} = $ERRNO;
         return;