dns-autoslave
changeset 28 396bb8f13f95
parent 27 134405c3299c
child 31 e127de596921
--- a/dns-autoslave	Mon Jan 19 10:52:37 2015 +0100
+++ b/dns-autoslave	Mon Jan 19 10:53:06 2015 +0100
@@ -163,7 +163,8 @@
 	    next;
 	}
 
-	if ((new Net::DNS::Resolver (recurse => 0))->query($domain, "SOA")) {
+	if ($_ = (new Net::DNS::Resolver (nameservers => ['127.0.0.1'], recurse => 0))->query($domain, "SOA")
+	    and $_->header->aa) {
 	    $Seen{$domain} = time;
 	    warn "$msg OK(soa checked)\n";
 	    next;