diff options
Diffstat (limited to 'fripost-newdomain')
-rwxr-xr-x | fripost-newdomain | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fripost-newdomain b/fripost-newdomain index 3c877e5..7cbac3b 100755 --- a/fripost-newdomain +++ b/fripost-newdomain @@ -185,7 +185,7 @@ else { if ($res->count) { print STDERR "WARN: Domain `" .$domain{domain}. "' already exists."; my @owners; - map { push @owners, $_->{owner} if defined $_->{owner} } ($res->entries); + map { push @owners, @{$_->{owner}} if defined $_->{owner} } $res->entries; if (@owners) { print STDERR " (Owned by "; print STDERR (join ', ', map { '`' .$_. "'"} @owners); @@ -224,7 +224,7 @@ sub create_alias { if ($res->count) { print STDERR "WARN: Alias $alias{address} already exists."; print STDERR "(Targetting to "; - print STDERR (join ', ', map { $_->{goto} } ($res->entries)); + print STDERR (join ', ', map { $_->{goto} } $res->entries); say STDERR ".)"; return unless grep { $_->{goto} eq $alias{goto} } $res->entries; } |