lib/DNS/Vi.pm
changeset 103 04685427a35b
parent 100 e7f889e69790
--- a/lib/DNS/Vi.pm	Thu Apr 09 22:07:08 2015 +0200
+++ b/lib/DNS/Vi.pm	Thu Jul 14 10:30:27 2016 +0200
@@ -289,8 +289,11 @@
 
 sub get_auth_info {
     my $name = shift;
+    my $server = shift;
     my %auth = (zone => undef, master => undef);
-    state $resolver = Net::DNS::Resolver->new;
+    state $resolver = Net::DNS::Resolver->new(
+        defined $server ? (nameservers => [$server]) : ()
+    );
     my $response = $resolver->send($name, 'SOA')
       or die $resolver->errorstring, "\n";