diff options
Diffstat (limited to 'lib/Fripost/Prompt.pm')
| -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)) { |