aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost/Commands
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem.moulin@fripost.org>2012-08-14 18:20:56 +0200
committerGuilhem Moulin <guilhem.moulin@fripost.org>2012-08-14 18:20:56 +0200
commitcee7d3e7a13ef25fc9da0e2dce07d95587b202da (patch)
tree499b4a8c74a199423a7ec313ae72874c02e3b804 /lib/Fripost/Commands
parent76113a2549eb224ef6e7b3cf85989857cf8fdb99 (diff)
Domain aliases.
Diffstat (limited to 'lib/Fripost/Commands')
-rw-r--r--lib/Fripost/Commands/add_alias.pm3
1 files changed, 1 insertions, 2 deletions
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'.$_) }
]
);