lib/DNS/Vi.pm
changeset 65 0f7e871c4672
parent 64 b61e5e1cc7ad
child 66 04e08079f218
--- a/lib/DNS/Vi.pm	Wed Jan 21 21:50:27 2015 +0100
+++ b/lib/DNS/Vi.pm	Wed Jan 21 23:07:35 2015 +0100
@@ -205,7 +205,8 @@
     push @add, "@{$_}{qw/label ttl rrtype data/}" foreach values %zone2;
     push @del, "@{$_}{qw/label ttl rrtype data/}" foreach values %zone1;
 
-    return (\@add, \@del);
+    return () if (!@add and !@del);
+    return (add => \@add, del => \@del);
 }
 
 sub edit {
@@ -223,7 +224,7 @@
 
 sub show {
     my ($add, $del) = @_;
-    my @out = ((map { " - $_ " } @$del), (map { " + $_ " } @$add),);
+    my @out = ((map { " - $_ " } @$del), (map { " + $_ " } @$add));
     return @out;
 }