--- 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;
}