aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Fripost
diff options
context:
space:
mode:
authorGustav Eek <gustav.eek@fripost.org>2011-05-14 13:41:47 +0200
committerGustav Eek <gustav.eek@fripost.org>2011-05-14 13:41:47 +0200
commite14bd8eea4ad519e36a56dc868ed2e9effe1295e (patch)
tree1f4e6441be3602fa596b8564cc893b464580c503 /lib/Fripost
parent16ed1260dd2433d9c25cd550a06c175093416f58 (diff)
parentab34b78c7b247436a3d10d89b5f029fbe093ffe5 (diff)
Merge branch 'master' of https://github.com/skangas/fripost-tools
Diffstat (limited to 'lib/Fripost')
-rwxr-xr-xlib/Fripost/Prompt.pm6
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)) {