From 47135d7827c75073278089d43220df48f250b118 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 19 Apr 2012 00:12:57 +0200
Subject: Search tools.

---
 fripost-newdomain | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fripost-newdomain')

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;
     }
-- 
cgit v1.2.3