perl-Net-IP/perl-Net-IP-1.25-zero_address.diff

--- 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;
Accepting request 1154695 from home:pgajdos:p - Use %autosetup macro. Allows to eliminate the usage of deprecated %patchN - modified patches % perl-Net-IP-1.25-zero_address.diff (refreshed) OBS-URL: https://build.opensuse.org/request/show/1154695 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Net-IP?expand=0&rev=26 2024-03-06 07:50:09 +00:00			`--- a/IP.pm`
			`+++ b/IP.pm`
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Net-IP?expand=0&rev=3 2008-08-21 23:56:41 +00:00			`@@ -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;`