lib/Nagios/Check/DNS/delegation.pm
changeset 26 d465c78373ca
parent 25 88749a69668e
child 27 beeac1cf82ed
--- 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, $@;