Merge branch 'master' of https://github.com/skangas/fripost-tools

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)) {