- autoupdated to 0.45

[packages/perl-Net-DNS.git] / perl-Net-DNS-unreachable_ns.patch

diff -urN Net-DNS-0.28.org/lib/Net/DNS/Resolver.pm Net-DNS-0.28/lib/Net/DNS/Resolver.pm
--- Net-DNS-0.28.org/lib/Net/DNS/Resolver.pm	Fri Sep 13 12:02:07 2002
+++ Net-DNS-0.28/lib/Net/DNS/Resolver.pm	Fri Sep 13 12:31:55 2002
@@ -817,7 +817,7 @@
 	# Perform each round of retries.
 	for (my $i = 0;
 	     $i < $self->{'retry'};
-	     ++$i, $retrans *= 2, $timeout = int($retrans / ($#ns + 1))) {
+	     ++$i, $retrans *= 2, $timeout = int($retrans / ((($#ns == -1) ? 0 : $#ns) + 1))) {
 
 		$timeout = 1 if ($timeout < 1);