--- a/lib/DNS/Vi.pm	Wed Jan 28 23:44:10 2015 +0100
+++ b/lib/DNS/Vi.pm	Wed Jan 28 23:44:49 2015 +0100
@@ -10,7 +10,6 @@
 use base 'Exporter';
 use if $] >= 5.020, experimental => 'smartmatch';
 
-
 our @EXPORT = qw(ttl2h h2ttl parse delta nice edit update show get_key
   get_auth_info);
 our @EXPORT_OK = ();
@@ -286,18 +285,20 @@
     my %auth = (zone => undef, master => undef);
     state $resolver = Net::DNS::Resolver->new;
     my $response = $resolver->send($name, 'SOA')
-	or die $resolver->errorstring, "\n";
+      or die $resolver->errorstring, "\n";
 
-#    use Data::Dumper;
-#    die Dumper $response;
+    #    use Data::Dumper;
+    #    die Dumper $response;
 
-    if (my @soa = grep { $_->type eq 'SOA' } $response->answer, $response->authority) {
-	die "got multiple soa records\n" if @soa > 1;
-	my $soa = $soa[0];
-	return (
-	    name => $soa->name,
-	    mname => $soa->mname,
-	)
+    if (my @soa = grep { $_->type eq 'SOA' } $response->answer,
+        $response->authority)
+    {
+        die "got multiple soa records\n" if @soa > 1;
+        my $soa = $soa[0];
+        return (
+            name  => $soa->name,
+            mname => $soa->mname,
+        );
     }
 
     return $response->authority;