- better describe what usernames we allow (#44783)

- drop useless ? in regexp

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/any.pm b/perl-install/any.pm
index b71305b99..42a208359 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -831,7 +831,7 @@ sub ask_user_and_root {
     require authentication;
     my $validate_name = sub {
 	$u->{name} or $in->ask_warn('', N("Please give a user name")), return;
-        $u->{name} =~ /^[a-z]+?[a-z0-9_-]*?$/ or $in->ask_warn('', N("The user name must contain only lower cased letters, numbers, `-' and `_'")), return;
+        $u->{name} =~ /^[a-z]+[a-z0-9_-]*$/ or $in->ask_warn('', N("The user name must start with a lower case letter followed by only lower cased letters, numbers, `-' and `_'")), return;
         length($u->{name}) <= 32 or $in->ask_warn('', N("The user name is too long")), return;
         defined getpwnam($u->{name}) || member($u->{name}, map { $_->{name} } @$users) and $in->ask_warn('', N("This user name has already been added")), return;
 	'ok';