# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1468485027 -7200
# Node ID 04685427a35be3c85fd7b8ee0b1dad1b3a771e0b
# Parent  a74506d89903e50d27669c1ad908656a13f53694
Use user supplied server for get_auth_info too

diff -r a74506d89903 -r 04685427a35b bin/dnsvi
--- a/bin/dnsvi	Thu Apr 09 22:07:08 2015 +0200
+++ b/bin/dnsvi	Thu Jul 14 10:30:27 2016 +0200
@@ -41,7 +41,8 @@
       && @ARGV >= 1
       or pod2usage();
 
-    my %auth = get_auth_info shift @ARGV;
+
+    my %auth = get_auth_info shift @ARGV, $o{server};
     my $zone = $auth{name};
 
     $o{server} = $o{local} ? 'localhost' : $auth{mname}
diff -r a74506d89903 -r 04685427a35b lib/DNS/Vi.pm
--- 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";