# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1421661186 -3600
# Node ID 396bb8f13f95de950a6b6403d8aa88d5c92fb5a6
# Parent  134405c3299cfa9c2d4ed23bdde62ee306dac054
check if the answer from the *local* server is *authoritive*

diff -r 134405c3299c -r 396bb8f13f95 dns-autoslave
--- 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;