aboutsummaryrefslogtreecommitdiffstats
path: root/fripost-newdomain
diff options
context:
space:
mode:
Diffstat (limited to 'fripost-newdomain')
-rwxr-xr-xfripost-newdomain4
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;
}