diff options
| author | Gustav Eek <gustav.eek@fripost.org> | 2011-05-14 13:41:47 +0200 |
|---|---|---|
| committer | Gustav Eek <gustav.eek@fripost.org> | 2011-05-14 13:41:47 +0200 |
| commit | e14bd8eea4ad519e36a56dc868ed2e9effe1295e (patch) | |
| tree | 1f4e6441be3602fa596b8564cc893b464580c503 /lib/Fripost | |
| parent | 16ed1260dd2433d9c25cd550a06c175093416f58 (diff) | |
| parent | ab34b78c7b247436a3d10d89b5f029fbe093ffe5 (diff) | |
Merge branch 'master' of https://github.com/skangas/fripost-tools
Diffstat (limited to 'lib/Fripost')
| -rwxr-xr-x | lib/Fripost/Prompt.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm index b41f806..0a9d5c6 100755 --- a/lib/Fripost/Prompt.pm +++ b/lib/Fripost/Prompt.pm @@ -32,9 +32,9 @@ sub confirm_or_abort { sub fix_username { my ($nam) = @_; - if ($nam !~ /\@/) { + if (defined $nam && $nam !~ /\@/) { $nam .= '@fripost.org'; - say "Using username: $nam"; + say "Using $nam"; } return $nam; } @@ -47,7 +47,7 @@ sub prompt_email { $email = prompt $msg; if ($is_username) { - $email = fix_username($email) + $email = fix_username($email); } if (!Email::Valid->address($email)) { |