]>
Commit | Line | Data |
---|---|---|
391e7e10 AM |
1 | diff -urN Net-DNS-0.28.org/lib/Net/DNS/Resolver.pm Net-DNS-0.28/lib/Net/DNS/Resolver.pm |
2 | --- Net-DNS-0.28.org/lib/Net/DNS/Resolver.pm Fri Sep 13 12:02:07 2002 | |
2f39eed8 AM |
3 | +++ Net-DNS-0.28/lib/Net/DNS/Resolver.pm Fri Sep 13 12:31:55 2002 |
4 | @@ -817,7 +817,7 @@ | |
5 | # Perform each round of retries. | |
6 | for (my $i = 0; | |
7 | $i < $self->{'retry'}; | |
8 | - ++$i, $retrans *= 2, $timeout = int($retrans / ($#ns + 1))) { | |
9 | + ++$i, $retrans *= 2, $timeout = int($retrans / ((($#ns == -1) ? 0 : $#ns) + 1))) { | |
391e7e10 | 10 | |
2f39eed8 | 11 | $timeout = 1 if ($timeout < 1); |
391e7e10 | 12 |