From cee7d3e7a13ef25fc9da0e2dce07d95587b202da Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Tue, 14 Aug 2012 18:20:56 +0200
Subject: Domain aliases.

---
 lib/Fripost/Commands/add_alias.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/Fripost/Commands/add_alias.pm')

diff --git a/lib/Fripost/Commands/add_alias.pm b/lib/Fripost/Commands/add_alias.pm
index 60fe378..59fe0e0 100644
--- a/lib/Fripost/Commands/add_alias.pm
+++ b/lib/Fripost/Commands/add_alias.pm
@@ -15,7 +15,6 @@ use FindBin qw($Bin);
 use lib "$Bin/lib";
 
 use Email::Valid;
-use IO::Prompter;
 use Fripost::Prompt;
 use Fripost::Schema;
 use Fripost::Email;
@@ -31,7 +30,7 @@ sub main {
 
     prompt_if_undefined ( "Alias goto address: ", \$goto,
         [ rewrite => sub { fix_username $_ }
-        , 'Invalid e-mail' => sub { Email::Valid->address($_) }
+        , 'Invalid e-mail' => sub { Email::Valid->address('fake'.$_) }
         ]
     );
 
-- 
cgit v1.2.3