From c7701570975feab6dd268802c6f552381d691529 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 21 Mar 2011 22:31:02 +0100 Subject: Updates --- lib/Fripost/Prompt.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Fripost/Prompt.pm') diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm index b41f806..bbc554d 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; } -- cgit v1.2.3 From 5b378efb833e05912c94116fb18e2613755fde5c Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Tue, 5 Apr 2011 21:44:03 +0200 Subject: Fix typo --- lib/Fripost/Prompt.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Fripost/Prompt.pm') diff --git a/lib/Fripost/Prompt.pm b/lib/Fripost/Prompt.pm index bbc554d..0a9d5c6 100755 --- a/lib/Fripost/Prompt.pm +++ b/lib/Fripost/Prompt.pm @@ -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)) { -- cgit v1.2.3