--- a/lib/Nagios/Check/DNS/delegation.pm Mon Jan 19 12:01:39 2015 +0100
+++ b/lib/Nagios/Check/DNS/delegation.pm Mon Jan 19 12:02:05 2015 +0100
@@ -89,12 +89,9 @@
### assert: @_ % 2 == 0
my %resflags = (nameservers => \@extns, @_);
my $aa = delete $resflags{aa};
- my $override = delete $resflags{override};
my $nameservers = join ',' => @{$resflags{nameservers}};
my @ns;
- return sort @{$override->{$domain}} if exists $override->{$domain};
-
my $r = Net::DNS::Resolver->new(%resflags);
my $q;
@@ -141,7 +138,6 @@
my (@errs, @ns);
# obtain an authoritive list of nameservers from the reference server
- #my @our = eval { sort +ns($domain, nameservers => [$reference], aa => 1, override => $override) };
my @our = eval { sort +ns($domain, nameservers => $references, aa => 1) };
if (chomp $@) {
push @errs, $@;