perl-Net-DNS-unreachable_ns.patch

   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
   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))) {
  10
  11                 $timeout = 1 if ($timeout < 1);
  12