diff options
| author | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-08-14 18:20:56 +0200 |
|---|---|---|
| committer | Guilhem Moulin <guilhem.moulin@fripost.org> | 2012-08-14 18:20:56 +0200 |
| commit | cee7d3e7a13ef25fc9da0e2dce07d95587b202da (patch) | |
| tree | 499b4a8c74a199423a7ec313ae72874c02e3b804 /lib/Fripost/Commands | |
| parent | 76113a2549eb224ef6e7b3cf85989857cf8fdb99 (diff) | |
Domain aliases.
Diffstat (limited to 'lib/Fripost/Commands')
| -rw-r--r-- | lib/Fripost/Commands/add_alias.pm | 3 |
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'.$_) } ] ); |